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ABSTRACT 

AnweatigntinnoftheftanhilityanddeairabilityoftheaBiploynientofperaorial 
conyutera  in  hydrofefl  and  propeMer  dea^  was  performed.  The  foaafoiiity  and 
daaMbifity  of  the  enyloynwnt  of  peraonal  oonfMten  in  hydrofoS  and  propeller  deaigB 
was  demcinetrated  by  the  leanileai  Unking  of  the  MTT  froiMiaor  Lifting  line  Code  and  the 
MIT  PropeBer  Blade  Design  Code  into  a  angle  KGcroeofo  Windowt^  haeed  ^iplication. 
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1.  INTRODUCTION 

1.1  Tlie  Mrtofy  icrew 

The  first  use  of  nMchankal  propulsion  at  tea  dates  back  at  leut  2000  yean.  The 
Romaa  army  recognized  the  advantages  ofindepcndence  from  wmd  and  current.  Before 
the  birth  Christ  they  used  paddle-wheel  driven,  oxen  powered  boats  to  transport 
soldiers  in  the  Medherranean  Sea.  Mechan^al  propulsion  took  the  next  great  leap 
forward  in  1783  at  Lyons,  France,  where  a  steam  engine  was  used  to  prt^  a  paddle- 
wheel  driven  barge  on  the  Rhone  river. 

Arclumedes  and  Leonardo  da  Vind  are  both  credited  with  the  initial  concepts  of 
screw  propulsion.  Archimedes  developed  the  idea  of  the  screw  pump,  which  provided 
in^iration  to  the  developers  of  marine  propulsion  in  the  19th  century  Leonardo  da  Vind 
produced  sketches  of  a  screw  propeller  that  resemMes  the  blades  of  a  modem  cording 
&n.' 

Modem  saew  propulsion  appears  to  have  been  first  proposed  in  England  by 
Robot  Hooke  in  1680  and  first  used  by  Colond  John  Stevens  at  New  York  in  18047 
Acting  for  the  United  States  and  British  Royal  Navies  respectively.  Jolvi  Ericcson  and 
Francis  Pettit  Smith  made  practical  applications  of  screw  propulsion  in  the  early  1800's. 
Both  men  received  patents  for  screw  propulsion  in  1836  and  soon  had  sucvossfiilly 
demonstrated  the  advantages  of  the  screw  propeller  over  ahemative  forms  of  mecharucal 
propulskm.’ 

U  The  hletoty  ef  digitai  cempntaw. 

The  birdi  of  the  concept  of  the  modem  (figital  compiler  can  be  traced  back  almost 
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u  as  the  screw  prope&er.  Charles  Babbage,  an  English  mathematician,  i^oposed  the 
*MialytiGal  engine*.  The  analytical  engine  was  to  be  a  totally  mechanical,  steam-driven 
machine  capable  of  performing  the  five  basic  data  processiitg  fiinctions;  data  ii^Mtt, 
arithmetic  processing,  data  storage,  data  output,  and  control  of  the  (^>eratioia.  Ahhou^ 
Babbage's  engm  ftfled  because  of  the  lack  of  adequate  hardware,  the  concept  fixmed  the 
basis  of  the  modem  computer  .* 

The  developmeot  ot  the  compiler  accelerated  in  the  1940‘s.  The  Mark  I 
computer,  an  elearomechanical  calculator  was  buih  at  Harvard  Univerrity  by  Dr.  Howard 
Aiken  in  1944.  The  Electronic  Discrete  Variable  Computer  (EOVAC)  was  buih  at  the 
Univeraky  of  Pennsylvania  between  1946  and  I9S2.  The  EDVAC  was  the  firs  computer 
to  allow  mstructions  to  be  stored  in  memory  rather  than  to  be  hard  wired.  TheUNIVAC 
1  was  iniroduced  as  the  first  mass  produced  digital  computer  and  the  first  to  be  used  in 
business  appbcations  International  Business  Machirtes  Corporation  (IBM)  entered  the 
business  computer  market  1950's.^ 

The  design  of  marine  propellers  took  a  great  step  forward  with  the  development  of 
the  high  speed  digital  computer  The  digital  computer  is  particularly  suited  to  the 
appficaiion  of  drculatioa  theory  to  propeller  design  It  is  a  simple  matter  to  employ  a 
computer  to  perform  the  repethive  calculations  tnherem  in  the  application  of  circulation 
theory  to  hydrt^  and  propeller  design 

U  Pifsenal  cesnpnters. 

Whde  the  first  generation  of  dytal  computers  made  use  of  vicwm  tube 
technology  and  perfijrmed  data  proceisirtg  operations  in  mflhsecotrds,  the  second 
genarstion  employed  transistor  technology  and  performed  operations  in  microseconds. 
Third  feneration  computers  using  integrated-circuit  tedmology  reduced  computation 

*tiwWi  a  o— iiia»  w.  seaw.  ci  mkih  mi  asu— si  mbOiiw  na  B»«fc  cii«>n.  iwrx 
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tttBM  to  aanoaecondi  Inpravod  techiiok)gy  it  lowering  cost  aUowed  Commodore 
and  Agfrie  in  1977  to  nttroduoa  oon^Mitcra  dorigned  fi>r  home  and  non-profeasional  use. 
IBM  foiowed  whh  the  IBM  PC  (personal  computer)  in  19S1.* 

The  stme  the  art  of  the  personal  computer  user  interftce  for  the  years  that 
immedmely  followed  the  introduction  (rf*  the  IBM  PC  was  the  fiumliar  DOS  prompt, 
shown  in  figure  1-1. 

O 

Figure  1-1.  DOS  Prompt 

The  DOS  prompt  contmied  its  dominance  of  the  personal  computing  world  until 
well  aftw  the  release  r^Windows^  1.01  by  the  Microsoft*  Corporation  in  198S.  The 
release  of  Windows^  1.01  was  quickly  followed  by  the  release  of  subsequettt,  more 
capable  versions.  Thb  coupled  with  rapidly  developing  hardware  enabled  Microsoft 
Corporation  to  establish  Wmdows^  as  the  dominaitt  operating  environment  for  personal 
computers  in  the  late  1980's  and  early  1990's. 

Windows  oikn  muhhasldiig,  memory  management,  device-independent  graphics, 
«id  a  conaistcnl  user  mterflKe.  Once  a  user  masters  hb  or  her  first  Windows^ 
appheation,  it  is  a  smaO  task  to  master  the  next.  Figure  1-2  depicts  a  typical  Windows 
appfication.  Wmdows^  users  find  the  control-menu  box,  the  title,  menu,  and  tool  bars, 
the  maximiae  and  miniane  buttons,  and  the  horizontal  and  vertical  scrofl  bars  both 
finnifiar  and  intuitively  useful.  Even  die  most  ardent  purist  will  eventually  come  to  prefer 
the  responaiveneas  of  Wmdows'*^  to  the  puritan  harshness  trf*  figure  1-1. 
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Figure  1-1.  MS-DOS  Proust 


Tbe  MS-DOS  proo^  cooboued  its  dcwamance  of  the  persMial  cc 
until  wefl  a&er  the  release  of  Windows  1.01  by  the  liAcrosoft  Corpordion  m  19l 
release  of  Wndows  1.01  was  qundcly  Mowed  by  the  release  of  subsequent, 
msons.  Hits  coupled  with  ripidiy  developsig  hardware  enabled  Microsoft  Cc 
establish  Windows  as  die  dominant  operating  envronment  for  personal  compu 
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1.4  The  cmploymeat  of  personal  computers  in  hydrofoil  and  propeller  design. 

It  is  the  intended  purpose  of  this  thesis  to  demonstrate  the  feasibility  and  i  # 

desirability  of  the  employment  of  personal  computers  in  hydrofoil  and  propeller  design 
The  approach  will  be  incremental  in  nature.  First,  Windows’’^  applications  based  upon 
relatively  simple,  traditional  FORTRAN  codes  ftom  the  MIT  Hydrofoils  and  Propellers  t  ' 

course  will  be  designed.  The  intent  of  these  initio  applications  is  to  serve  as  a  vehicle  for 
developing  the  tools  that  will  be  required  in  implemoiting  more  complex  codes. 

The  second  step  in  this  process  will  be  to  implement  the  MIT  Propulsor  Lifting  h 

Line  Code  (PLL)  in  a  Windows^  application.  PLL  is  a  tool  used  for  the  preliminary 
design  of  marine  propulsors.  It  can  be  used  in  the  design  of  propulsors  with  a  relativdy 
high  degree  of  complexity.  PLL  can  serve  as  the  starting  point  of  a  "blank  sheet  of  paper"  h 

d«ngn  and  can  be  used  in  conjunction  with  codes  used  to  design  blade  shapes,  to  analyze 
cavitating  propellers,  and  to  analyze  steady  and  unsteady  propeller  forces. 

The  third  step  will  be  to  implement  the  MIT  Propeller  Blade  Design  Code  (PBD)  * 

as  a  part  of  the  PLL  Windows™  application.  PBD  is  a  vortex-lattice  combined  design  and 
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•aiiyas  code.  It  ttcafwbleoftlwdeitgii  Mid  aMlymofim^stage  open  and  ducted 
propeBera.  The  integnrted  app&cation  wiO  provide  a  leemlett  link  between  nX  and  PBD. 


2.  HYDROFOIL  DESIGN  AFPUCATIONS 


2.1  The  HydraM  VMtn  Lattfec  Lifkkig  Liae  Frttgnua. 

The  Hydtt^Ml  Voitcx  Lattice  lifting  line  Progrem^(VLL)  is  •  FORTRAN  code 
that  demonstrates  a  vortex  lattice  numerical  approximation  of  a  straight  lifting  line.  VLL 
calculates  the  exact  uid  numerical  values  of  induced  velocity,  total  lift,  and  total  induced 
drag  fixr  a  circulation  distribution  defined  by  five  Glauert  coeflScients*.  The  (v^ogram  also 
calculates  percent  error  values  for  lift,  drag,  and  the  ratio  of  lift  to  drag  squared.  Output  is 
provided  m  the  form  of  text  written  to  the  screen  and  a  plot  file  whidt  may  be  used  with  a 
suitable  graphics  program. 

VLL  was  selected  fix  the  initial  step  in  demonstrating  the  feasibility  and 
deairri)8ity<rf‘tbecmfdoymemofpersonal  computers  in  hydrofoil  and  propdler  design.  It 
was  selected  fix  two  reasons.  First,  the  program  is  relatively  short  snd  could  be  easily 
converted  from  FORTRAN  to  the  C  programmii^  language.  Second,  the  implementation 
of  VLL  in  the  Windows'*^  environmem  would  residt  in  iiranediately  recognizable 
improvements  in  the  user  interfile,  in  terms  of  input,  output,  on-line  help  and  portability. 


2.1.1  A  campaiisen  ef  VLL  and  the  Wladews'^  versien  of  VLL. 
Figure  2-1  is  a  sample  of  the  screen  output  proviifed  by  VLL. 
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Figure  2-1.  VLL  Sample  Output 
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Figure  2-2  is  a  sample  of  the  output  of  the  Windows'^  version  of  VLL.  It  is  for 


the  same  case  as  the  output  depicted  in  6gure  2-1  id>ove. 
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Figure  2-2.  Windows'^  VLL  Sanqile  Output 
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Figurat  2*1  and  2-2  both  (Bq)lay  vtftuaUy  the  same  information.  Careful  inspection 
reveals  thtt  dw  (HaMeit  coeffidenta,  the  number  of  elements  used,  and  percent  errors  are 
immediately  avaUhble  m  text  fbrmat.  Tlw  remaining  data,  with  the  exception  of  the 
spenwise  position  crf'the  lattice  vortices  is  preaeided  in  graiducal  format.  The  Windows'll 
prognan  also  creates  an  ouQNit  file  similar  to  2-1  for  each  run.  The  section  of  the 
oinput  ffle  corresponding  to  figure  2-1  is  shown  in  figure  2-3. 
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Figure  2-3.  Windows^  VLL  Dau  File 

It  is  dear  by  inspection  of  the  output  provided  by  die  two  prognuitt  that  the 
Windows'^  version  trf  VLL  offias  tangible  improvements  in  the  output  provided.  It  also 
oflers  improvements  in  the  area  trf*  data  input  The  FORTRAN  version  of  VLL(uovides 
fix  tner  input  in  the  traifitiofial  terminal  interactive  mode.  Upon  execution,  the  program 
prmts  a  series  ofprompts  to  the  screen.  The  pix^ram  accqits  and  screens  user  iiqxit,  and 
then  processes  die  input  essentially  in  a  batch  mode.  The  screen  and  file  output  are 
produced  anmeifiateiy  prior  to  termmalioo  of  die  executable. 
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upon  exectrtkm  of  the  Wmdowt™  veriioii  of  VLL,  the  nuin  window  is  mated. 
The  vahiea  of  dw  data  infMit  manually  in  the  FORTRAN  program  are  automatically 
initialiaed.  The  user  m^  elect  to  after  the  de&uh  vahiea  for  any  or  all  of  the  Giauert 
coeffickBta.  the  nundmrtrfvortex  elements  in  the  lattice,  or  the  sparing  of  the  vortices  r 
control  points.  This  is  accomphshed  by  using  the  Options  pull  down  menu  and  invoking 
the  appropriate  dialog  box.  Figure  2-4  depicts  the  main  window  with  the  Geometry  diriog 
box  active. 


Figure  2-4.  Windows''^  VLL  Geometry  Dialog  Box 

After  the  input  data  has  been  altered,  the  output  is  calculated  and  displayed  by 
selecting  the  Run  option  from  the  File  puD  down  menu.  This  action  causes  ouqxjt  similar 
to  Inures  2-2  and  2-3  to  be  created.  Unlike  die  FCHITRAN  version,  the  executaUe  does 
not  terminaie,  but  rather  remains  running,  awaiting  ftirther  user  input  The  user  nu^  elect 


to  fiirthcr  alter  the  iiyirt,  termiiiate  the  program,  print  a  copy  of  the  soeen  output  to  the 
system  printer,  or  view  dw  oii>line  he^  available  by  u«ng  the  Hdp  puU  down  menu. 

The  on-line  help  provided  by  the  FORTRAN  version  of  VLL  is  limited  to  that 
provided  with  the  input  prompts.  The  Windows™  version  provides  a  general  description 
of  die  program,  specifics  r^archng  the  use  of  each  han  on  the  pull  down  menus,  and 
inftxmatioo  about  the  authors  of  the  program.  Figure  2-S  shows  the  VLL  screen  with  the 
OptionsjGeometiy  help  message  box  displayed. 
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Figure  2-5.  Windows™  VLL  with  Hdp  displayed 

Portabifity  is  another  advantage  of  programming  for  the  Windows™  environment. 
Windows  provides  the  interfile  between  the  executable  file  and  the  screen  or  printa, 
obviating  die  need  to  write  multiple  device  driven.  The  programs  described  in  this  thesis 
are  des^ned  to  run  on  any  IBM  compatible  PC  with  adequate  memory  unda  Windows™ 
3.1.  Th^  also  mi^  be  run  unda  Windows™  95. 


UL  Tkc  itni^vrc  a  Wiadawa^**  prognua. 

The  advantages  inherent  in  prt^ramming  in  the  Windows™  environmem  do  not 
come  withotn  a  price.  The  FORTRAN  version  ofVLL  consists  ofabout  ten  pages  of 
code  in  two  files.  The  Windows™  version,  on  the  other  hand,  consists  of  on  the  order  of 
7S  pages  (rf* code  in  a  dozen  files.  Some  ofthe  difference  is  explained  by  the  addition  of 
graphical  output,  but  the  largest  fiKtor  is  explained  by  the  structure  of  a  Windows™ 
program. 

The  most  basic  of  Windows™  programs  requues  at  least  two  functions.  The  first 
is  the  WinMain  fiincfion  and  the  second  is  the  MainWndProc  function.  Adding  the 
functionahty  of  a  main  menu  requires  an  additional  function,  the  WMCommand_Handler 
function.  The  addition  of  each  dialog  box  requires  two  more  functions,  one  to  initialize 
the  box  and  one  to  process  the  input  from  the  dialog  box. 

In  addition  to  the  functions  that  are  part  of  the  Windows™  program  structure,  the 
VLL  program  also  uses  separate  functions  to  perform  the  hydrodynamic  computations  and 
to  write  output  to  the  screen  and  primer. 

The  first  tivee  sections  of  Appendix  A  provide  detailed  descriptions  of  the  VLL 
WmMatn,  MainWndProc,  WMCommand_Handler  fimctions.  Appendix  A.4  describes  the 
VLL  dialog  functions  and  the  sub-sections  of  ^rpendix  A.S  describe  the  ouqxjt  fimctions 
that  are  used  in  VLL.  AQ  ofthe  function,  header,  resource,  and  definition  files  that  make 
up  the  VLL  program  are  «intained  in  Appendix  A.6. 

^me  2-6  below  shows  the  interrelationships  between  the  fimctions  described 


below  and  the  output  hardware. 


Figure  2-6.  Windows^  Prognm  Stnicture 
2^1  TWWiiMatahiactieiL 

The  WinMatn  function  is  the  main  emry  p(^  for  an  ai^^ication.  Typically  the 
WinMain  fitnction  performs  the  following  tasks: 

•set  up  a  window  class  structure 
•register  a  window  class  using  that  structure 
-create  and  (fispiay  a  window  based  on  the  roistered  class 
-enter  a  meaaage  loop  that  receives  and  processes  messages  from  Windows™. 
The  WinMain  fiinction  fix  VLL  is  described  in  detail  in  Appendix  A.  1 . 


i 


i 


i 


»  • 


TbeMnhiWndPrncfoactian. 

The  second  ftm^ion  required  in  a  Windows™  program  is  the  MainWndProc 
fimetioo.  The  MainWndProc  fimetion  b  refiened  to  as  the  window  procedure.  It  is 
actuaOy  a  caPbeck  fimedon  thtt  uses  a  switch  in  processing  and  responding  to  Windows™ 
meaaagea.  The  MrinWedProc  for  VLL  is  described  in  detail  m  Appendbe  A.2. 
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2JL3  Tke  WMCMMauuMl_H«Mlicr  fkactlMi. 

The  WMCoininand_Hendla'  function  provides  the  functionality  of  a  main  menu  for 
a  Wmdowt^  program.  It  coiwsts  of  a  switch  that  handles  messages  sent  to  the 
apphcidion  by  the  Windows^  envirmiment  in  response  to  user  selections  from  the  main 
menu.  The  W^kMmnuid_Handler  function  used  by  VLL  is  described  in  d^ail  in 
Appentfix  A.3. 


2J.4  Diah^  functions. 

Dialog  boxes  are  a  convenient  means  for  allowing  the  application  user  to  provide 
input  to  the  program.  The  use  of  a  single  dialog  box  requires  that  two  functions  be  added 
to  the  functions  desc^)ed  above.  The  first  is  a  callb«:k  fiinction,  similar  to  the  ^ 

MainWndProc.  The  purpose  of  the  function  is  initialize  the  data  displayed  in  the  dialog 
box  when  it  is  created,  and  to  refer  ntessages  received  by  the  diak^  box  to  the  second 
functioa  * 

The  second  function  is  similar  to  the  WMCommand_Handler  function.  The 
purpose  of  tlos  function  is  to  handle  messages  received  by  the  dialog  box,  usually 
messages  fixxn  an  *OK”  or  "CANCEL*  button.  The  user  interaction  with  the  dialog  box, 
other  than  the  "OK"  or  "CANCEL*  buttons  is  typically  handled  by  the  Windows^ 
environment.  The  dialog  fimetioos  used  in  VLL  are  descrflMd  in  detail  in  Appendix  A.4. 


Z.3.5  Output  Ihnctiens. 

Application  prognuns  in  the  Windows^  environment  provide  the  user  with  the 

g 

advantages  of  a  graphical  user  interftce  (GUI)  and  the  programmer  with  the  advantages  of 
the  graphical  device  unerftce  (ON).  The  GDI  provides  over  SO  graphics  routines  in  the 
appficatkm  pn^pMi  interfile  (API).  These  fimetioas  allow  the  programmer  to  generate 
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output  without  becoming  involved  in  the  specifics  of  a  particular  piece  of  hardware.’ 

The  VLL  program  uses  four  separate  functions  to  provide  output.  Two  provide 
output  to  the  monitor  and  two  provide  output  to  the  system  printer.  Each  pair  consists  of 
a  fiinction  that  draws  the  current  variable  data  and  a  function  that  draws  the  graphs  and 
the  percent  error  table.  The  output  functions  are  described  in  detail  in  Appendix  A, 
section  S.  I  through  S.3. 

U  The  2D  Voitcx/Source  Lattice  with  Lighthill  Correction  Program. 

The  2D  Vortex/Source  Lattice  with  Li^thill  Correction  Program(VLMLE)  is  a 
FORTRAN  code  that  dononstrates  a  vortex  lattice  numerical  approximation  for  the  two 
dimensional  hydrofoil  problem.  It  is  a  version  of  the  VLM2D  FORTRAN  program*’, 
revised  by  Kerwin  to  include  a  Lighthill  leading  edge  correction**.  The  leading  edge 
cmrectkm  prevents  the  infinite  tip  vdocity  predicted  by  linear  theory  for  angles  of  attack 
other  than  the  ideal  angle  of  attack.  VLMLE  takes  inputs  of  the  number  of  panels,  ideal 
lift  coefficient,  angle  of  attack  relative  to  the  ideal  angle  of  attack,  and  thickness  to  chord 
ratio.  The  program  calculates  the  pressure  distribution  over  the  upper  and  lower  surfaces 
of  the  foil  assunui^  a  NACA>66(Mod)  thickness  form  with  a  NACA  a=K).8  mean  camber 
line.  It  writes  the  computed  total  lift  coefficient  to  the  screen  and  provides  an  output  file 
that  can  be  used  in  coiqunction  with  a  suitable  graphics  program. 

The  implementatioo  of  VLMLE  in  a  Windows^  application  was  chosen  as  an 
ntfermeditte  step  in  demonstrating  the  feasibility  and  desirability  of  the  employment  of 
personal  comptrtera  in  hydrc^  and  pix^>eller  design.  It  was  chosen  for  two  reasons. 
First,  the  prt^run  seemed  suitable  to  adaptatkm  as  a  stand  alone  executable  called  by  a 
Windows^  application.  Second,  as  with  VLL,  the  Windows^  environment  offered 

*rtml  fmry. >r Wjaawn  iyinB%a» DnliMiw(hamsiBi,  ladba*; Bmm niMiei n. 
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inmwdiatdy  FecogniLad>le  improveinents  in  tenns  of  the  user  interfiu:e,  input/output,  on- 
I  line  hdp  and  portalMlity. 

U.1  A  cooiparison  of  VLMLE  and  the  Windows^  version  of  VLMLE. 

The  screen  output  provided  by  VLMLE  is  limited  to  the  computed  total  lift 
coeflBdent.  Figure  2-7  is  a  sample  of  the  output  of  the  Windows'^  version  of  VLMLE. 


a^s 


aa  ajt  oj  as  aa  14 

)0C 


UMfr 


I 


> 


Figure  2-7.  Windows™  VLMLE  Sample  Output 
An  inspection  reveals  that  the  input  data,  number  of  panels,  ideal  lift 
cocflBdent,  ai^  of  attack  relative  to  ideal  angle  of  attack,  and  thickness  to  chord  ratio 
may  be  reviewed  in  the  Current  Variable  Data  area.  The  n^ative  of  the  pressure 
coeflBdent  on  the  upper  and  lower  surftKe  is  plotted  versus  position  on  the  foil  non- 
dtmensionalized  with  the  chord  on  the  graph,  and  the  computed  total  lift  coefficient  is 
written  under  the  Current  Variable  Data  area.  The  Windows™  version  also  provides  the 
graphics  output  file  produced  by  the  FORTRAN  version. 
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The  FORTRAN  version  of  VLMLE  provktes  for  user  input  via  a  series  of  prompts 
tothescrcea  The  prt^ram  accepts  and  screens  user  input,  and  then  processes  the  input  in 
a  batch  mode.  The  screen  and  file  output  are  produced  immediatdy  prior  to  termination 
of  the  executable. 

l^pon  execution  of  the  Windows™  version  of  VLMLE,  the  main  window  is 
created.  The  vahiesofthe  detail^  manually  in  the  FORTRAN  program  are 
automatkaDy  mhiahzed  to  adected  definih  vahies.  The  user  mi^  dect  to  alter  the  de&ult 
values  fix  die  munber  of  ponds  or  dudoiess  to  chord  ratio  by  selecting  OptionsjGeometry 
on  the  main  menu  and  intern  tins  with  the  Geometry  dialog  box.  The  user  also  may  dect 
to  alter  the  ideal  lift  coefficient  or  angle  of  attack  by  sdecting  Options{Parameters  on  the 
main  menu  and  interacting  with  the  Parameters  dialog  box.  Figure  2-8  depicts  the  main 
window  with  the  Parameters  dialog  box  active. 


Figure  2-8.  Windows™  VLMLE  Parameters  Box 
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After  the  ii^Nit  data  has  been  aftered,  the  output  is  calculated  and  displayed  by 
selectmg  the  Run  tuition  frcun  the  Rle  pull  down  menu.  Unlike  VLL,  the  Windows'll 
version  dT  VLMLE  does  not  perform  the  actual  hydrodynamic  calculations  but  rather 
writes  an  inpiri  file  containing  the  parameters  normally  provided  by  the  user  in  the  terminal 
ifUeractive  mode.  The  Windows™  program  then  calls  a  modified  FORTRAN  version  of 
VLMl£.  The  modified  FORTRAN  VLMLE  executable  reads  the  input  data  file  written 
by  the  Windows'™  program,  performs  the  calculations,  and  writes  the  normal  output  file 
and  an  additional  output  file  fimnatted  for  use  by  the  Windows™  program.  The 
FORTRAN  executable  also  writes  a  dummy  file  immediately  prior  to  termination.  The 
purpose  of  the  dummy  file  is  to  notify  the  Windows™  program  that  the  hydrodynamic 
calculations  are  complete  and  that  the  necessary  output  has  been  generated.  The 
Windows™  program  periodically  checks  for  the  existence  of  the  dummy  file.  When  it  is 
found  to  exist,  the  formatted  output  file  is  opened  and  the  output  is  written  to  provide  a 
view  similar  to  figure  2-7.  After  this  is  accomplished,  the  program  remains  running, 
awaiting  further  input.  The  user  may  dect  to  further  alter  the  input,  terminate  the 
program,  print  a  copy  of  the  screen  output  to  the  system  printer,  or  view  the  on-line  hdp 
available  by  uring  the  Hdp  pull  down  menu. 

The  on-line  hdp  provided  by  the  FORTRAN  version  of  VLMLE  is  limited,  as  in 
VLL,  to  that  provided  with  the  input  prompts.  The  Windows™  version  provides  a 
general  description  of  the  program,  spedfics  r^iarding  the  use  of  each  item  on  the  pull 
down  menus,  and  information  about  the  authors  of  the  program.  Figure  2-9  shows  the 
VLL  screen  with  the  Options|Parameters  hdp  message  box  displayed. 
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Figure  2-9.  Windows™  VLMLE  with  Help  displayed 


The  Windows™  version  of  VLMLE  will  run  on  any  IBM  compatible  PC  with 


Windows™  3.1  or  Windows™  95. 
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3.  PROPELLER  DESIGN  APPUCATIONS 


3.1  TlMMlTPropvlMirLifkiagLiMPrognMk 

The  MTT  ProfNilscMT  Ltftiitg  Line  Program  is  a  FORTRAN  code  that  is  used  for  the 
prdiminary  design  of  marine  propulsors.  It  can  be  used  in  the  design  of  propulsors  with  a 
relatively  lugh  d^ree  of  complexity.  PLL  can  serve  as  the  starting  point  of  a  "blank  sheet 
of  paper”  design  and  can  be  used  in  conjunction  with  codes  used  to  design  blade  shapes, 
to  analyze  cavitating  propdlers,  and  to  analyze  steady  and  unsteady  propeller  forces. 

PLL  was  selected  for  the  second  step  in  demonstrating  the  feasibility  and 
desirability  of  the  employment  of  personal  computers  in  hydrofoil  and  propdler  design  for 
two  reasons.  First,  the  program  is  the  starting  point  for  propeller  designs  and  can  be  used 
in  conjunction  with  other  codes  that  fortho-  refine  the  design.  Second,  the  implementation 
of  PLL  in  the  Windows'^  environment  was  estimated  to  be  the  most  difficult  step  in  the 
construction  of  and  int^rated  propdler  design  software  package. 

3.1.1  A  brief  dcscriptioB  of  PLL. 

The  FORTRAN  verson  of  PLL  is  designed  as  an  interactive  program.  The  user  is 
prompted  for  input  data  and  may  provide  it  in  the  form  of  keyboard  input  or  prepared  data 
files.  The  program  also  provides  the  capability  of  writing  input  files  for  later  use  based  on 
the  keyboard  iiqxjt  provided.  The  three  basic  files  used  in  a  typical  PLL  run  are  the 
overall  iiqait  file,  the  blade  iiqMit  file,  and  the  wake  input  file.  A  pre-swirl  stator 
drculation  file  imy  be  used  in  a  project  whidi  indudes  a  non-axi^mmetric  pre-swirl 
stator.  Rgure  3-1  is  a  sample  overall  input  file. 
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PROPELLER  UFTIKG  LINE  RUN.  1/31/1996 


OVERALL  INPUT  FILE 

30.500000 . Ship  speed  (ft^) 

1.991000 . .Fluid  Density 

10.000000 . Shaft  oent^iae  depth  (ft) 

1 . Nuariwr  of  componems 

N . No  iinape  hub  to  be  used 

N . Noiasaceducttobeused 

N  Component  1  is  not  a  filled  propeller 

5 . Nundier  of  blades  on  component  1 

10.000000 . Diameter  of  component  1  (ft) 

sample, bid  File  containing  Made  inputs  fi>r  comp.  1 

10.000000 . Diameter  of  wake  for  oomptment  1  (ft) 

samplel.wdc  File  containing  wake  inputs  for  comp.  1 


Figure  3-1 .  Sample  PLL  Overall  Input  File 
The  overaU  input  file  provides  information  regarding  the  ship  opmting  conditions,  the 
number  and  nature  of  the  propulsor  components,  and  the  files  that  describe  the  blade  and 
wake  inputs.  Figure  3-1  is  an  overall  input  file  for  a  single  five  bladed  propeller  with  no 
ring  or  duct. 

A  blade  input  file  is  shown  in  figure  3-2  bdow. 

PROPELLER  UFTINC  LINE  RUN:  SAMPLE  RUN  #1  00AXV94 

*««*•**•**«••*••••««  blade  INPUT  FILE  **••«•*•*•****•**«** 

NUMBER  W  RADn  F(»  INPUTS: 

II 

NONDIMENSICmSAL  RADU  FOR  INPUTS: 

0.2000  0.2500  0.3000  0.4000  0.5000  0.6000  0.7000  0.8000  0.9000  0.9500  1.0000 
OKXID/DIAMETER  AT  EACH  RADIUS: 

0.1740  0.1970  0.2290  0.2750  0.3120  0.3370  0.3470  0.3340  0.2800  0.1200  0.050 
THICKNESS/DIAMETER  AT  EACH  RADIUS: 

0.0348  0.0329  0.0310  0.0271 0.0233  0.0194  0.0156  0.0117  0.0079  0.0060  0.0040 
243  SECTIONAL  DRAG  COEFnOENT  AT  EACH  RADIUS: 

0.0080  0.0080  0.0080  0.0080  0.0080  0.0080  0.0080  0.0080  0.0080  0.0080  0.0080 
N(»IDlMENSIONAL  CIRCULATION  AT  EACH  RADIUS: 

0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000 

Figure  3-2.  Sample  PLL  Blade  Input  Rle 


The  blade  input  file  provides  non-dimensional  information  r^arding  the  blade  chord, 
thickness,  two  dimenaonal  sectional  drag  coefficient,  and  circulation  at  a  number  of  radii 
Claiming  the  blade  firom  hub  to  tip. 

A  sanqile  wake  inixit  file  is  shown  in  figure  3-3  below. 
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PROPBUfR  UlTINO  U^S  RUN:  SAMPU  Rim 

•*«•••••«««*«««•«•••«•  ^jVAKE  INPITT  FILE  •••••••••*••••••••••• 

NUMBER  OF  RADO  FOR  INPUTS: 

11 

IRAffiBR  OP  HARMONIC  COEPnOENrS  (anal.  ladial.  tangeoiial): 

1  0  0 

NCMEHMENSKmAL  RADE  FOR  INPUTS: 

0.2000  0.2500  0.3000  0.4000  O.SOOO  0.6000  0.7000  0.8000  0.9000  0.9500  1.0000 
AXIAL  COSSB  HARMCmiC  COEFFICIENTS: 

0.4520  0.4530  0.4540  0.4760  0.5160  0.5870  0.6710  0.7570  0.8140  0.8350  0.8470 
AXIAL  SINE  COEFnOENTS: 

0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000  0.0000 
Figure  3-3.  Sample  PLL  Wake  Input  File 


The  wake  input  file  provides  a  description  of  the  inflow  wake  in  terms  of  harmonic 
coefficients  of  the  circumferentially  varying  inflow  at  a  specified  set  of  radii. 

After  initial  input  is  made  in  order  to  provide  a  description  of  the  proposed  blade, 
wake,  and  operating  conditions,  the  user  is  allowed  to  review  and  alter  the  current  PLL 
settiiigs.  The  current  settings  include  switches  that  determine  whether  PLL  will  optimize 
circulation  and  chord  length,  whether  or  not  PLL  will  perform  a  wake  alignment  or 
conqnite  the  drag  coefficient,  and  what  circulation  distribution  will  be  used  for  ducts. 
Numerical  values  for  number  of  panels,  hub  vortex  radius,  tip  thickness,  Lagrange 
muhiidier,  maximum  lift  coefficient,  maximum  thickness  to  chord  ratio,  and  minimum  root 
chord  are  also  included  in  the  current  settings. 

When  the  user  is  satisfied  with  the  settings,  PLL  proceeds  with  the  hydrodynamic 
calculations,  periodically  prompting  the  user  to  make  selections  r^arding  the  computation 
of  the  effective  wake,  tunnd  operation,  thrust  estimates,  torque  ratios,  and  thrust 
distributions.  When  the  hydrodyruunic  calculations  are  completed,  the  user  may  make 
sdections  fiom  the  PLL  main  menu.  The  user  may  choose  to  unload  a  compon«it,  try  a 
dififerent  vahm  of  thrust  otRPM,  evaluate  the  effect  of  a  non-axisymmetiy  stator,  look  at 


■HWhi  a  CoMy,  MlT-PLLlWh  MiHMd  (< 


bMilHtoorTedaiology,  I9n).p.«9. 


output  or  plots,  run  optimization  again  with  a  cUfierent  pitch  distribution,  tty  another 
thrust  or  RPM  with  a  new  effisctive  wake,  adjust  chord  length  to  match  an  expanded  area 
ratio,  perform  a  strength  computation,  reset  blade  input  values  with  curroit  blade  outputs, 
review  or  alter  the  current  settings,  reoptimize  with  a  new  jm>pdler  diameter,  determine 
optimum  RPM  or  diameter,  perform  a  blade  stress  computation,  modify  the  thickness 
distribution,  or  exit  the  program. 

Output  from  the  FORTRAN  version  of  PLL  includes  text  files  that  present 
summary  and  detailed  data  for  eadi  of  the  propulsor  components,  duct  geometry  data, 
vdodty  profiles  for  dowrtstream  of  the  propulsor,  and  files  that  describe  the  forces, 
veloctty  harmonics,  and  circulation  distribution  for  non>axisymmetric  stators.  A  file  that 
compares  axisymmetric  and  non>axisymmetric  results  is  also  provided.  Plotted  output  is 
also  available  through  the  use  of  plot  files  with  suitable  graphics  programs.  Plotted  data 
includes  axial  inflow  vdodty,  advance  angle,  tangoitial  inflow  vdocity,  chord  and 
thickness  distributions,  circulafion  distribution,  axial  and  tangential  induced  velodty, 
hydrodynamic  advance  angle,  and  locd  thrust,  torque,  and  lift  coeffidents. 

PLL  is  a  capable  and  complex  computer  program.  A  detailed  discussion  of  the 
program,  induding  the  theory  belund  the  code,  the  input  to  the  program,  running  the 
program,  and  output  fix>m  the  program  is  availd>le  in  the  MTT-PLL  Propulsor  Lifting  Line 
Code  User's  Manud  by  WilUam  B.  Coney. 

3,2  TIm  MIT  Prapdicr  Blade  Design  Code. 

The  tlurd  stq>  in  demonstrating  the  feadbilhy  and  desirability  of  the  employment  of 
personal  conqMiters  in  hydrofoil  and  propeller  design  is  the  int^ration  of  the  MIT 
PropeOer  Blade  Design  Code  as  a  part  of  the  PLL  Windows''^  application.  PBD  is  a 
vortex-lattice  comirined  design  and  analysis  code.  It  is  capable  of  the  deagn  and  analysis 
of  ffluki-stage  open  and  ducted  propdlers.  The  integrated  Windows'^  application 
provides  a  seamless  link  between  PLL  and  PBD. 
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3J.1  AbrkfdcscriptioaofPBD. 

The  FCmTRAN  version  of  PBD  is  designed  to  nin  in  a  batch  nKxle.  The  user  is 
required  to  provide  three  input  files,  four  in  the  case  of  the  coupled  analyns  nKxle.  The 
three  file  types  required  are  the  B>spline  control  polygon  file,  the  axisynunetric  flow 
solution  in  the  region  of  the  propeller,  and  a  main  administrative  file.  The  coupled  analysis 
mode  also  uses  a  circumferential  mean  induced  vdodty  file,  usually  produced  by  a 
previous  PBD  run.  Rgure  3-4  is  a  sample  main  administrative  file. 


PBD14TURB1.PBD 
tuibl.bn 
mor.vd 
411 11 
2 


:no  hub.  no  duct 
:(»TRYPBIXXJT.BSN 
:  CXI  TRY  fcitaftvel 
tnblade  mkey 
:ispa 


10  1  2  3  4  S  6  7  8  9  10  11  12  13  14  IS  16  17  IS  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36 


37383940 
0  0.000.0 
9100 
2 
0 

10.0010.0001 

10.02 

0.0085 

0.900  1.000  1.500  0.100 
0.0300 

0.2  0.3  0.4  0.5  0.6  0.7  0.8  0.9  1.0 
0.02  0.02  0.02  0.020.020.02  0.020.02  0.02 
0.  0.  0.  0.  0.  0.  0.  0.  0. 

0.  0.  0.  0.  0.  0.  0.  0.  0. 

0.  0.  0.  0.  0.  0.  0.  0.  0. 

0.  0.  0.  0.  0.  0.  0.  0.  0. 


rmcifp 
ihub.hgap,i(liic,dgap 
nx.ngco(^ml9pe.nilliick 
imode 
nwimax 

niter,tweak,bulge,radwgt,nufix 

iiplot.iHibchk 

Odrag 

ADVCO  XULT  XFINAL  DTPROP 

CifcCoef. 
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t/d 

UA 

UAU 

UT 

UTU 


Figure  3-4.  Sample  PBD  Adiiunistrative  File 


The  admiiustrative  file  ^ledfies  the  B-^line  and  vdodty  input  files.  It  also  qiecifies 
fineness  of  the  vortex  lattice,  the  mode  in  vdudi  the  jd>  is  to  be  run,  the  thickness  and 
drculatkm  distrfixitions,  the  maximum  numb«’  of  wake  iterations,  parameters  rdated  to 
iteration  of  the  blade  shape,  the  vdodty  fidd  at  the  propdler  and  at  the  ultimate  wake, 
and  several  other  parameters. 

Figure  3-S  is  a  portion  of  a  sample  vdodty  file. 


TITLE  -  *PBD10  VELOCITY  INPUT* 
VARIAm^S  -  XJLUA.UR.UT 
ZCM®  T-'Inflow",  I-  5.  J-  3.  F^POINT 


•3.0000  0.2000 

1.0 

0.0000 

0.0000 

-1.3000  0.2000 

1.0 

0.0000 

0.0000 

0.0000  0.2000 

1.0 

0.0000 

0.0000 

1.3000  0.2000 

1.0 

0.0000 

0.0000 

3.0000  0.2000 

1.0 

0.0000 

0.0000 

•3.0000  0.3000 

1.0 

0.0000 

0.0000 

-1.3000  0.3000 

1.0 

0.0000 

0.0000 

0.0000  0.3000 

1.0 

0.0000 

0.0000 

1.3000  0.3000 

1.0 

0.0000 

0.0000 

3.0000  0.3000 

1.0 

0.0000 

0.0000 

-3.0000  0.7000 

1.0 

0.0000 

0.0000 

-1.3000  0.7000 

1.0 

0.0000 

0.0000 

0.0000  0.7000 

1.0 

0.0000 

0.0000 

1.3000  0.7000 

1.0 

0.0000 

0.0000 

3.0000  0.7000 

1.0 

0.0000 

0.0000 

-3.0000  0.9000 

1.0 

0.0000 

0.0000 

•1.3000  0.9000 

1.0 

0.0000 

0.0000 

0.0000  0.9000 

1.0 

0.0000 

0.0000 

1.3000  0.9000 

1.0 

0.0000 

0.0000 

3.0000  0.9000 

1.0 

0.0000 

0.0000 

Figure  3-S.  Sample  PBD  Velocity  Input  File 
The  velodty  input  file  contains  induced  velocity  data  for  at  least  four  stations  axially 
extending  from  upstream  of  the  propeller  to  at  least  the  axial  position  downstream  where 
all  flow  quantities  are  constant.  At  least  four  radial  positions  must  be  specified. 

A  portion  of  a  sample  B>spline  control  polygon  file  is  shown  below  in  Figure  3-6. 

ZONE  T^*B-q)Iiiie  polygoa*.  I-  7  J»  7  F-POINT 


<0.08431 

0.18184  -0.08317 

0.19996  0.0 

0.0 

0.0 

•0.06693 

0.18723  <0.07201 

0.20062  0.0 

0.0 

0.0 

<0.01607 

0.19667  -0.04289 

0.20129  0.0 

0.0 

0.0 

0.03738  0.20073  -0.00762  0.20087  0.0 

0.0 

0.0 

0.13443  0.19920  0.02392  0.20063  0.0 

0.0 

0.0 

0.19327  0.19608  0.03901  0.19993  0.0 

0.0 

0.0 

0.21722  0.19302  0.04442  0.20001  0.0 

0.0 

0.0 

<0.06826 

0.43067  <0.19016 

0.47078  0.0 

0.0 

0.0 

<0.03337 

0.44320  -0.16389 

0.47253  0.0 

0.0 

0.0 

•0.00784 

0.46332  -0.09462 

0.47304  0.0 

0.0 

0.0 

0.06414  0.47301  <0.00013  0.47301  0.0 

0.0 

0.0 

0.13809  0.46331  0.09282  0.47271  0.0 

0.0 

0.0 

0.20626  0.44463  0.14939  0.46908  0.0 

0.0 

0.0 

Figure  3-6.  Sample  PBD  B-^line  Control  Polygon  File 


The  file  ccmsists  of  an  1  by  J  matrix  of  B>spline  control  polygon  vertices.  The  first  three 
cohinms  are  the  Cartesian  coordinates  of  the  points.  The  values  in  the  fourth  column  are 
the  distance  firom  the  centerline  of  the  hub  to  the  vertices. 

Figure  3-7  is  a  portion  of  a  circumferential  mean  velocity  file.  The  file  contains  the 
drcumfiBiential  mean  vdodties  induced  on  the  blade  by  the  circulation  distribution  and  by 
the  thickness. 

TITLE  ■'Qrcumlbfential  Mean  Blade  Vdocity* 

VARIABLES  -  •X",'V/Z*/VX*."W."YZ" 

ZC»®  T^-VELOCmES".  1-  240 

•0.16627  0.19145  -0.17308  0.11971  0.01132  -0.01241 

-0.13747  0.19914-0.16430  0.15086  0.01358-0.02039 

-0.14289  0.21042-0.14933  0.17696  0.01462-0.03066 

-0.12291  0.22360-0.12818  0.19689  0.01699-0.04406 

-0.09819  0.23685-0.10119  0.21032  0.02295-0.06017 

-0.06963  0.24805-0.06911  0.21752  0.03327-0.07725 

-0.03834  0.25520  -0.03319  0.21893  0.04772  -0.09347 

-0.00556  0.25722  0.00464  0.21387  0.06523  -0.10738 

0.02730  0.25389  0.04214  0.20134  0.08416  -0.11828 
0.05973  0.24574  0.07704  0.18228  0.10291  -0.12651 
0.08992  0.23411  0.10750  0.15785  0.12007  -0.13263 
0.11675  0.22100  0.13256  0.12973  0.13351  -0.13566 

Figure3-7.  Sample  PBD  Circumferential  Mean  Blade  Velocity  File 
The  PBD  FORTRAN  executable  prompts  the  user  for  name  of  the  main 
administrative  file.  The  program  then  reads  the  data  in  the  administrative  file  and  in  the 
spedfied  input  files.  Periodic  status  messages  are  printed  to  the  monitor  during  the  course 
of  the  hydrodynamic  calculations.  Program  output  is  in  the  form  of  files  formatted  for 
plotting  with  a  suitable  graphics  program.  The  files  produced  during  a  given  run  are  a 
function  of  the  mode  sdected  for  the  run.  The  files  are  described  bdow. 


PBDOUT.CBD-  a  graphic  of  the  cemerbody,  or  hub. 

PBDOUT.CMF-  the  drcumferential  mean  forces  on  the  blade. 


PBDOUT.CMV-  the  circumferential  mean  vdodties  induced  on  the  blade. 


PBDOUT.GSP- 


PBDOUT.SOL- 

PBDOUT.IBG- 

PBDOUT.KTQ- 

PBDOUT.VCP- 


the  bound  circulation  strength  of  each  vortes  s^ment  versus  radial 
and  chordwise  position  (desgn  modes  only), 
the  bound  circulation  strength  of  each  vortex  segment  versus  radial 
and  chordwise  position  (analysis  modes  only), 
the  input  blade  geometry  as  a  Cartel  grid, 
a  text  file  containing  thrust  and  torque  coefficients, 
the  velocities  at  the  blade  control  points. 

PBDOUT.OBG-  the  output  blade  geometry  for  idl  blades  on  the  propeller,  plus  the 
wake  of  the  key  blade  and  the  image  hub  and  duct  lattices,  if 
applicable. 

the  output  B-spline  control  polygon. 

the  radial  circulation  distribution  at  the  trailing  edge  (de«gn  modes 
only). 

the  radial  circulation  distribution  at  the  trailing  edge  (analysis 
only). 


PBDOUT.BSN- 

PBDOUT.RDC- 

PBDOUT.SGR. 

modes 


Figure  3-8  shows  the  screen  output  for  a  sample  PBD  run. 
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PH>  Pfopeiltf  Blade  DoifB  and  Analyds  Code 

VeniMM.  14.1.27 
HelaaeeDolB;Fob01 1996 


Eater  FBD  Metier  lapdraeNme...  tuib2.|ibd 
'n]RB2.PH> 

aait2.bea 

rolot2.vel 

DESIGN  MODE; 

Uenlioa  1  Max  ndioeenor  in  iltliat  blade  to  hub*  0.0001 
bendoa  1  Max  ndiue  error  iafttiag  blade  to  dp*  0.0001 
TuaeiaBLlNPT:  Oteooadt 

Tbae  in  BLADE:  0  aeooadi 
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ngure3>S.  Sample  PBD  Screen  OutpiR 


A  detailed  (tiscuaskm  of  PBD,  including  the  theory  bdiind  the  code,  the  input  to 
the  program,  running  the  program,  and  output  from  the  program  may  be  found  in  PBD> 
14.2:  A  Coupled  Lifiii^-Surfitce  Design/Analysis  Code  for  Marine  Propulsors  by  S.D. 
Black,  D.E.  Egnor,  D  P.  Keenan,  J.E.  Kerwin,  and  T.E.  Taylor. 

3,3  The  Integrated  PLL/PBD  Windows^  applicatioa. 

The  ingdementation  of  PLL  as  a  Windows^  application  and  the  subsequent 
intention  of  PBD  into  the  application  were  performed  as  distinct  steps.  The  result  will 
be  laesented  in  the  final  form  for  the  purposes  of  this  thesis.  Tl.e  term  PLL  from  this 
point  forward  v^ien  refming  to  the  Windows'*^  application  will  imply  the  integrated 
PLL/PBD  application. 

The  PLL  Windows''^  application  is  similar  in  appearance  and  operation  to  the 
applications  described  in  sections  2. 1  and  2.3.  This  is  expected  since  one  of  the 
advamages  of  the  Windows^  environment  is  that  all  applications  are  similar  in 
appearance  and  operation.  The  operation  of  PLL  is,  however,  much  more  complex  than 
the  frat  two  applications.  This  also  is  expected,  since  the  original  FORTRAN  versions 
(fifived  significantly  in  complexity  of  operatirm. 

Figure  3*9  shows  the  PLL  application  as  it  appears  upon  starting  the  program. 


Figure  3-9.  Windows™  PLL 

Upon  first  inspection,  three  differences  between  PLL  and  the  previous  applications 
are  immediately  noticed.  The  PLL  application  has  four  windows  displayed  in  the  main 
window.  This  difference  is  due  to  the  employment  of  the  Multiple  Document  Interface 
(MDI)  in  PLL.  In  an  MDI  application,  the  main  window  is  referred  to  as  the  frame 
window.  The  windows  displayed  inside  the  fhune  window  are  referred  to  as  child 
windows  or  document  windows.  In  the  case  of  PLL,  the  document  windows  are  the 
Blade,  Wake,  Plot,  and  Output  Viewer  windows.  The  purposes  of  these  windows  are  as 
follows; 

Blade  Viewer-  to  display  the  input  blade  file  data,  including  ring  data  for  ringed 
propulsors  in  a  graphical  format. 

Wake  Viewer-  to  display  the  input  wake  data  in  a  polar  plot  format. 

to  display  plotted  output  from  the  PLL  and  PBD  FORTRAN 
executables. 


Plot  Viewer- 


« 
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Output  Viewer-  to  displey  text  file  output  firom  the  PLL  and  PBD  FORTRAN 
executables. 

The  second  diflbrence  is  the  Window  item  on  the  main  menu.  This  item  is  used  to 
determine  how  the  document  windows  will  be  displayed  in  the  fiwne  window.  In  PLL, 
unlike  most  MDI  af^cations,  the  four  document  windows  are  created  when  program 
execution  begins  and  renuin  in  existence  until  program  temunation.  Figure  3-9  shows  the 
windows  in  a  cascaded  format,  figure  3-10  shows  the  windows  in  a  tiled  format  with  the 
focus  set  to  the  Output  Viewer  window  and  figure  3-1 1  shows  the  windows  in  the 
iconified  state  with  the  Window  pull  down  menu  activated  and  the  focus  set  to  the  Wake 
'^ewer  window. 
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Figure  3-11.  Windows™  PLL  with  Iconified  Child  Windows 
The  Window  pull  down  menu  can  be  used  to  display  the  child  windows  in  cascaded  or 
tiled  formats.  When  one  or  more  of  the  windows  are  iconified,  it  may  be  used  to  arrange 
the  icon(s)  in  the  fi^e  window.  The  Window  pull  down  menu  can  also  be  used  to  set  the 
focus  on  a  specific  window. 

The  third  difference  that  is  noticed  immediately  is  the  vertical  scroll  bar  in  the 
Output  Viewer  window.  The  text  files  displayed  in  the  Output  Viewer  window  fi-equently 
exceed  the  vertical  range  of  the  window.  The  scroll  bar  allows  the  user  to  view  the  entire 
file,  a  portion  at  a  time,  by  scrolling  down  the  page.  The  user  can  also  perform  the 
scrolling  function  by  using  the  Page  Up,  Page  Down,  Up  Arrow,  and  Down  Arrow  keys 
on  the  keyboard. 


3,3.1  The  Blade  and  Wake  Viewer  Windows. 

The  next  step  the  user  must  take  if  he  or  she  washes  to  perform  a  propulsor  design 
is  to  open  a  project  file.  This  is  accomplished  by  selecting  File|Open  Project  on  the  main 
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menu.  The  user  specifies  a  project  file  using  the  Open  dialog  box.  The  program  then 
reads  overall  input,  blade  input,  and  wake  input  files  identical  to  those  used  by  the  original 
version  of  PLL.  The  Windows'*^  application  is  designed  to  read  pre^stipg  PLL  data 
files  so  that  the  user  need  not  perform  data  manipulation  in  order  to  run  old  projects  with 
the  new  software. 

It  is  important  to  note  here  that  project  files  are  not  used  in  the  FORTRAN  veraon 
of  PLL.  The  project  file  replaces  the  initial  terminal  interactive  input  performed  by  user 
for  the  FORTRAN  verson,  and  also  contains  the  information  necessary  to  make  settings 
analogous  to  the  current  settings  for  the  FORTRAN  version. 

When  the  file  has  been  opened,  the  blade  input  and  wake  data  may  be  viewed  using 
the  Blade  and  Wake  Viewer  windows.  Figure  3-12  shows  the  Blade  Viewer  window  after 
a  project  is  opened. 
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Figure  3-12.  Windows™  PLL  Blade  \^ewer 
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The  data  shown  is  for  a  ringed  propdlor.  The  plots  are  of  non-dimensionalized  chord  and 
thickness  (Ustributions,  viscous  drag  coeffident,  and  non-dimenrionalized  circulation 
distrtbutKHi  plotted  verws  non-dimensionalized  radius  in  the  case  of  the  blade  and  non- 
dimenskmalized  angle  in  the  case  of  the  ring.  Projects  with  a  single  non-ringed  propdler 
display  the  blade  information  only.  Projects  with  two  components  display  the  blade  data 
for  the  first  component  on  the  left  and  the  second  component  on  the  right. 

Kgure  3-13  shows  the  Wake  Viewer  window  after  a  project  is  opened. 
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Figure  3-13.  Windows™  PLL  Wake  Viewer 

The  Wake  'Viewer  window  displays  polar  plots  of  the  axial,  radial  and  tangential 
inflow  wake  velocity  components  for  a  range  of  radii.  The  values  are  non-dimensionalized 
with  ship  qieed  and  are  displayed  such  that  port  is  left  and  starboard  is  right.  The  number 
dis|dayed  in  the  upper  left  comer  of  the  indmdual  plots  is  the  value  that  corresponds  to 
the  black  circle  that  bounds  the  plot.  The  number  displayed  in  the  lower  right  comer  of 
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the  individual  plots  is  the  value  that  corresponds  to  the  center  of  the  black  circle.  A 
legend  is  displayed  in  the  lower  left  comer  of  the  window.  In  the  case  of  multiple 
con^nent  propulsors,  the  operator  may  switch  between  the  wake  plots  for  components 
one  and  two  double-clicking  the  left  mouse  button  on  the  Wake  Viewer  window.  This 
action  has  no  effect  if  the  open  project  is  a  single  conqwnent  project. 

33.2  Edit  Diak^  Boxes. 

The  next  step  the  user  will  want  to  perform  in  the  propulsor  design  process  is  to 
review  and  possibly  alter  the  current  program  settings.  This  is  accomplished  for  the  most 
part  through  a  set  of  dialog  boxes.  The  dialog  boxes  may  be  called  using  the  Edit  pull 
down  menu  on  the  main  menu.  The  Project  Settii^s  dialog  box  is  called  by  selecting 
EditjProject  Settings  fi’om  the  main  menu.  Tlw  Multiple  Component  Project  Settings 
dialog  box  is  shown  in  Figure  3-14. 
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Figure  3-14.  Windows'*'^  PLL  Multiple  Component  Project  Settings  Dialog  Box 
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The  user  nmy  use  this  dialog  box  to  review  and  alter  settings  normally  made  as 
part  ofthe  terminal  interactive  ii^  at  the  begamingofaPLL  session.  These  settings 
include  a  run  identffier,  the  name  of  the  overall  it^  file  to  be  used,  the  RPM  of  each 
componeitt,  whether  or  not  to  coiiqMite  the  effective  wake,  the  desired  thrust,  and  the 
torque  ratio  between  the  two  conqx>nents.  The  user  may  also  use  this  dialog  box  to  a%n 
or  not  to  align  the  wake  durii^  circulation  optimization,  to  indicate  that  the  propulsor  is 
operating  in  a  tunnel,  and  to  manually  specify  a  darapii^  value. 

The  user  may  also  review  and  alter  settings  with  the  De&uh  Settings  dialog  box. 
The  De&uh  Settings  dialog  box  is  called  by  selecting  Edit|£)e&uh  Settings  from  the  main 
menu.  The  Muhipte  Component  De&uh  Settii^s  dialog  box  is  shown  in  Figure  3-1 S. 


Figure  3-15.  Windows^^  PLL  Muh^le  Con^nent  De&uh  Settings  Dialog  Box 


The  De&uh  Settings  dialog  box  is  roughly  analogous  to  the  Current  Settings  Menu  fiY)m 
the  original  version  of  PLL.  The  user  may  review  and  aher  the  maximum  lift  coefficient. 


the  maxioMBn  thickness,  the  tip  thickness  the  minimum  root  chord  for  each  comfwnent,  the 
Lagrange  Multipliers  used  m  solving  for  optimum  load  distrfoutions  ,  the  number  of  panels, 
the  drag  coefficiem  multiplier,  the  hub  vortex  radius,  and  the  wake  contraction  ratio.  The 
user  may  elect  to  align  or  not  to  align  the  wake,  to  optimize  or  not  to  optimize  the 
circulation  distribution,  to  optimize  or  not  to  optimize  the  chord  length  distribution,  to 
compute  or  not  to  compute  the  drag  coefiSciems,  and  to  use  the  cte&ult  wake  contraction 
ratio  or  to  manually  specify  a  contraction  ratio. 

The  Duct  Settings  dialog  box  is  called  for  projects  with  a  duct  by  selecting 
Edit|Duct  Settings  from  the  main  menu.  The  Duct  Settings  dialog  box  is  shown  in  Figure 
3-16. 


Figure  3-16.  Windows'^^  PLL  Duct  Settings  Dialog  Box 


The  user  imy  review  and  alter  settings  relating  to  duct  cakulations  using  the  Duct 
Settngs  dialog  box.  The  user  may  specify  the  duct  tq>  gap  &ctor  and  the  ratio  of 
pcopeOer  thnot  to  the  sum  of  duct  tlnnt  and  propeller  thrust.  The  user  may  elect  to  use 
an  a=~0.8  mean  line  or  a  sinusoidal  distribution  of  vortkity  to  specify  duct  circulation.  The 
user  rosy  also  elect  to  ignore  duct  rif^  vortex  forces,  or  to  ignore  duct  forces.  The  user 
may  elect  to  manually  specify  a  value  for  duct  circulation. 

The  user  may  wish  to  review  and  aher  the  settings  used  for  the  ABS  Rules 
stra^th  calculation.  The  ABS  Rules  Strength  Settings  dialog  box  may  be  called  by 
making  the  Edit|ABS  Strength  Settings  selection  on  the  main  menu.  The  ABS  Rules 
Strength  Settings  dialog  box  is  shown  in  Figure  3-17. 
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Figure  3-17.  Windows'!''^  PLL  ABS  Rules  Strength  Settings  Dialog  Box 
The  ABS  Rules  Strength  Settings  dialog  box  may  be  used  to  select  a  fixed  or  controllable 
pitch  propeller,  to  select  the  propeller  material  properties  including  uhimate  tensile 
strength  and  ^)ecific  weight,  and  to  qjecify  the  rake  at  the  hub  and  the  tip.  The  user  may 
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select  a  user  defined  material  by  specifying  an  ultimate  tensile  strength  and  specific  weight 
for  a  material  other  than  the  five  pre-defined  materials. 

There  are  two  dialog  boxes  that  are  used  to  specify  settings  that  PLL  uses  to  write 
input  files  for  miming  the  PBD  portion  of  the  program.  The  PBD  Settings  dialog  box  is 
used  to  make  selections  for  parameters  included  in  the  PBD  main  administrative  file.  The 
PBD  Skew/Rake  Settings  is  used  to  specify  the  ^ew  and  rake  values  to  be  used  when 
creating  the  B-spline  ii^iut  file.  Figure  3-18  shows  the  PBD  Settings  dialog  box. 
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Figure  3-1 C.  WindowsTM  PLL  PBD  Settings  Dialog  Box 
The  PBD  Settings  dialog  box  may  be  used  to  select  the  mode  in  which  PBD  will  be  run, 
the  blade  grid  spacing,  the  type  of  chordwise  circulation  distribution,  the  velocities  that 
will  be  output  in  the  PBDOUT.VCP  file,  the  component  for  which  the  files  will  be  written, 
a  run  title,  an  output  filename  root,  the  number  of  spanwise  vortices  across  the  chord,  the 
number  of  trailii^  vortices,  the  maximum  number  of  blade  shtqie  iterations,  the  sectional 
drag  coefficient,  the  weighting  for  the  blade  smoothing  equations,  the  index  of  the 
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constrained  vertices,  the  ultimate  wake  starting  pomt,  the  final  wake  point,  and  the  non- 
dimensional  time  increment. 

The  PBD  Skew/Rake  settii^s  dialog  box  for  the  first  component  is  shown  in 
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Figure  3-19.  Windows^w  PLL  PBD  Skew/Rake  Settings  Dialog  Box 
The  PBD  Skew/Rake  settings  dialog  box  is  initialized  with  the  cunent  values  of  skew  and 
rake  at  each  of  the  radii  used  for  blade  input  data.  The  defoult  value  is  zero.  The  user 
may  specify  a  value  for  each  radii,  or  may  specify  a  value  for  the  smallest  and  largest  radii 


and  select  a  linear  skew  and/or  rake  distribution.  The  distribution  is  calculated  after  the 


dialog  box  is  terminated.  There  are  two  separate  PBD  Skew/Rake  Settings  dialog  boxes, 
one  for  the  first  con^nent  and  one  for  the  second  conqionent. 

When  the  user  is  satisfied  with  the  PLL  settings,  he  or  she  may  save  the  project  as 
a  project  file.  This  is  doiK  by  selecting  File|Save  Project  firom  the  main  menu  and  usii^ 
the  Save  As  dialog  box.  The  current  project  file  may  be  replaced,  or  the  revised  project 
may  be  saved  under  a  new  or  previous  project  file  name. 


3 J J  Ratniag  PLL. 

When  the  user  has  opened  a  project  and  made  the  desired  settings  using  the  edit 
dialog  boxes,  the  user  may  then  run  the  project  making  the  File|Run  selection  from  the 
main  menu.  The  program  then  allows  the  user  to  make  additional  settings  using  the 
Runtime  dialog  box.  The  Runtime  dialog  box  is  shown  in  Figure  3-20. 


Figure  3-20.  Windows^M  PLL  Runtime  Settings  Dialog  Box 

The  \iser  may  select  one  of  seven  mutually  exclusive  settings  from  the  OPTIONS  area  of 
the  Runtime  Settings  dialog  box.  The  options  include  optimizing  propeller  RPM, 
optimizing  propeller  diameter,  maximizing  thrust  for  a  given  torque  and  determining  shfo 
speed,  evaluating  a  non-axisymmetric  stator  design,  matching  a  value  for  expanded  area 
ratio,  unloadii^  conqwnents,  or  none  of  the  above  options.  If  the  user  chooses  to 
maximize  thrust  for  a  given  torque  and  determine  ship  speed,  horsepower  and  thrust 


coefBcient  imi^  also  be  ^)ecified.  A  brief  description  of  the  runtime  options  is  provided 
below. 

Optimize  propeller  RPM-after  performing  the  hydrodynamics  calculations  for  the 
"None"  option,  the  program  performs  an  iterative  procedure  to  determine  the  optimum 
propeller  RPM.  The  result  is  reported  in  a  message  box  after  termination  of  the 
FORTRAN  executable.  This  optimization  is  not  available  for  ducted  or  ringed  propulsors. 
Figine  3-21  shows  the  Optimization  Data  dialog  box.  The  Optimization  Data  dialog  box 
is  used  for  selecting  the  component  to  be  optimized  and  for  supplying  a  required  thrust 
value.  In  the  case  of  a  contra-rotating  propulsor,  the  dialog  box  is  also  used  for  supplying 
a  torque  ratio. 
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Figure  3-21.  Windows^  PLL  Optinusatkm  Data  Dialog  Box 

Optinaze  propeller  diameter-after  performing  the  hydrodynamics  calculations  for 
the  "None"  option,  the  program  performs  an  iterative  procedure  to  determine  the  optimum 
propeller  dianaeter.  The  result  is  reported  in  a  message  box  after  termination  of  the 


FORTRAN  executable.  This  optimization  is  not  available  for  ducted  or  ringed  propulsors. 
The  Optimization  Dida  dialog  box  is  also  used  for  this  option. 

Maximize  thrust  for  a  given  torque  and  determine  ship  speed-after  performing  the 
hydrodynamics  calculations  for  the  "None"  option,  the  program  iterates  to  determine  ship 
speed  for  a  specified  horsepower  and  thrust  coefficient. 

Evaluate  a  non-axisymmetric  stator  design-this  option  allows  the  user  to  select  a 
non-axisymmetric  data  file  using  the  Select  Stator  File  dialog  box.  The  program  performs 
the  normal  hydrodynamic  calculations  for  the  currently  open  pre-swirl  stator  project,  then 
reperforms  the  calculations  using  the  selected  non-axisymmetric  stator  file.  This  causes 
additional  text  output  data  to  be  displayed  with  the  usual  output  files. 

Match  EAR-the  match  EAR  option  allows  the  user  to  specify  an  expanded  area 
ratio  to  be  matched  using  the  Expanded  Area  Ratio  dialog  box.  The  single  component 
Expanded  Area  Ratio  dialog  box  is  shown  in  figure  3-22. 
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Figure  3-22.  Windows™  PLL  Expanded  Area  Ratio  Dialog  Box 


PLL  writes  the  expanded  area  ratio  calculated  on  the  most  recent  run  of  the  current 
project  and  allows  the  user  to  specify  a  different  value.  PLL  then  performs  the  normal 
hydrodynamic  calculations,  scales  the  chord  distribution  to  match  the  specified  expanded 
area  ratio,  and  reperforms  the  hydrodynamic  calculatbns. 

Unload  Con^nents*if  the  component  is  hubless,  ringless,  and  does  not  have  a 
zero  gap  duct,  this  option  allows  the  user  to  specify  untoading  by  modifying  the  sine  series 
coefBcients  that  describe  the  blade  circulation  distribution.  This  is  accomplished  using  the 
Glauert  Coefficients  dialog  box.  The  single  component  Glauert  Coefficients  dialog  box  is 
shown  below  in  figure  3-23. 
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Figure  3-23.  Windows'*^'^  PLL  Glauert  Coefficients  Dialog  Box 


PLL  initializes  the  dialog  box  with  the  sine  series  coefficients  for  the  component 
circulation  distribution  for  the  most  recent  run  of  the  current  project.  The  user  may 
specify  changes  to  the  coefficients  as  a  fiaction  of  the  first  coefficient.  After  the  dialog  box 
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is  terminated  PLL  performs  the  normal  hydrodynamic  calculations,  alters  the  circulation 
distribution  as  specified,  and  reperforms  the  hydrodynamic  calculations. 

If  there  is  an  image  hub,  a  ring,  or  a  zero  gap  duct,  the  Steepness  dialog  box  is 
initialized  with  hub  and  tip  control  point  radii  and  circulation  values.  The  user  may  select 
the  exponent  to  be  used  to  unload  the  hub  and  tip.  Figure  3-24  shows  the  multiple 
conqponent  Steepness  dialog  box. 


MIT  -  lYncici  LlWng  Unc  Prir—  -  gl»dc  Vlc)<cil 


-I  fH»  &it  Halo 


COMPONENT*! 


COMPONENT  fS 


I  OK  )  jcANCEtj 


Lbld 


-Hub  ConiraiPMM 

Radius; 

Circulation; 

Staepneii; 

Expunsirt 

0.2392 

0.0116 

□ 

'Hub  COalral  Point 

nadMar 

U13S 

E] 

rTIp  Contra!  PotaT 

PuSllL 

Radhw: 

Radius: 

0.0446 

CiftMiaiCw* 

•Jl« 

Circulation; 

0.0067 

SarcR-cas: 

□ 

Steepness; 

□ 

Exponent 

Noa-Oi 


ioaol  Rodii 


Nba-Diaaasioaal  Radii 


Figure  3-24.  Windows™  PLL  Steepness  Dialog  Box 


After  the  Steepness  dialog  box  terminates,  PLL  calculates  and  displays,  using  the  Unload 
CoefBcients  dialog  box,  the  percent  unloading  that  may  be  accomplished  with  the  specified 
steepness  exponent.  The  user  may  input  the  size  of  the  coefiBcient  to  control  the  amount 
of  unloading.  The  multiple  component  Unload  Coefficients  dialog  box  is  shown  in  figure 
3-25. 
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Figure  3-25,  Windows™  PLL  Unload  Coefficients  Dialog  Box 


The  final  two  options  available  at  run  time  are  not  mutually  exclusive  of  each  other 
or  the  options  described  above.  The  user  may  elect  to  have  PLL  write  PBD  B-spline  input 
files  in  preparation  for  running  the  project  using  the  PBD  portion  of  the  PLL  Windows^M 
appUcation.  The  user  may  also  elect  to  reset  the  blade  input  values  with  current  values 
determined  by  the  previous  PLL  run. 


3.3.4  The  Output  and  Plot  Viewer  Windows. 

The  WindowsTM  pll  application  uses  the  PLL  FORTRAN  executable  to  generate 
the  same  text  output  files  that  are  created  by  the  original  version  of  PLL.  In  order  to 
provide  the  user  with  an  improved  interface,  PLL  draws  the  output  files  to  screen  in  the 
Output  Viewer  window.  Figure  3-26  shows  the  Output  Viewer  window  with  a  summary 
report  displayed. 
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Figure  3-26.  Windows^M  PLL  Output  Viewer 
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The  Output  Viewer  window  may  be  used  to  view  all  of  the  text  reports  generated  by  PLL. 

The  reports  available  depend  on  the  type  of  project,  and  may  include  a  summary  report, 

•  detailed  reports  for  each  component,  the  results  of  the  blade  stress  and  ABS  Rules  ^ 


strength  calculation,  a  duct  geometry  file,  a  file  describing  the  velocities  far  downstream  of 
the  propulsor,  and  non-axisymmetric  stator  output  files  describing  the  circulation  on  each 
•  blade,  the  forces  on  each  blade,  the  velocity  harmonics,  and  a  comparison  of  axisymmetric  ft 

and  non-axisymmetric  resuhs. 


The  user  may  page  through  the  results  in  a  pre-defined  order  by  double  clicking 

•  the  left  mouse  button  while  the  cursor  is  on  the  Output  Viewer  window.  A  vertical  scroU  ft 

bar  is  provided  since  some  files  are  greater  than  one  page  in  length.  The  user  may  also 

choose  the  text  display  color  firom  four  choices  (blue,  green,  red,  and  black)  by  double 

•  clicking  the  right  mouse  button  while  the  cursor  is  on  the  Output  Viewer  window.  ft 
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The  Windows^*^  PLL  s^plication  also  uses  the  PLL  FORTRAN  executable  to 
goierate  a  data  file  used  to  provide  the  same  plots  available  firom  the  original  version  of 
PLL.  In  order  to  provide  further  inq)rovements  in  the  user  interfece,  PLL  ptots  the  output 
parameters  versus  non-dimensional  radius  in  a  series  of  four  screens  in  the  Plot  Viewer 
window.  Multiple  conqMnent  propulsor  parameters  may  be  displayed  one  conqx)nent  at  a 
time  or  the  two  conqx>nents  may  be  displayed  together.  Figure  3-27  shows  the  Plot 
Viewer  window  with  two  con^nents  plotted  together. 
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Figure  3-27.  Windows^^  PLL  Plot  Viewer 

The  Plot  viewer  provides  plots  of  a  total  of  sixteen  parameters.  They  are  organized  into 
four  screens,  or  pages,  as  indicated  below. 

Page  1-  Chord  Distribution  Input,  Chord  Distribution  Calculated,  Undisturbed 
Pitch  Angle,  Induced  Pitch  Angle 
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Page  2- 


Effective  Axial  Inflow  Velocity,  Induced  Axial  Velocity,  Tangential  Inflow 
Velocity,  Induced  Tangential  Velocity 
Pi^  3-  Thickness  Distributbn  Ii^ut,  Drag  Coefficient,  Circulation  Ii4>ut, 
Circulation  Calculated 

Page  4-  Local  Lift  CoefiBcirait,  Local  Torque  CoefiBcient,  Local  Thrust  CoefiBcient, 
Local  Cavitation  Number 

The  user  may  page  through  the  four  screens  in  the  pre-defined  order  by  double 
clicking  the  left  mouse  button  while  the  cursor  is  on  the  Plot  Viewer  window.  The  user 
may  also  shift  between  the  first  component  plot,  second  component  plot,  and  combined 
plot  by  double  clickii^  the  right  mouse  button  while  the  cursor  is  on  the  Plot  Viewer 
window. 

3.3.5  Additional  Capabilities. 

The  Windows'''^  PLL  application  provides  a  few  capabilities  in  addition  to  those 
described  above.  Figure  3-28  shows  the  File  pull  down  menu. 
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Figure  3-28.  WindowsTi^  PLL  File  Pull  Down  Menu 
In  addition  to  the  selections  described  previously,  the  user  may  also  choose  the  FilelPrint 
PLL  Plots.  FilejPrint  Output,  or  File|Write  PLL  Output  File  selections. 

The  File|Print  PLL  Plots  selection  calls  the  Print  dialog  box  to  allow  the  user  to 
select  the  plot  screens  to  print  and  the  number  of  copies.  In  the  case  of  multiple 
component  propulsors,  all  three  available  plots  will  be  printed  for  each  selected  page.  The 
FilelPrint  Output  selection  calls  the  Print  dialog  box  to  allow  the  user  to  select  the  text 
output  pages  to  print  and  the  number  of  copies.  The  FilejWrite  PLL  Output  File  calls  the 
Save  As  dialog  box  to  allow  the  user  to  choose  an  output  file  name.  After  the  dialog  box 
terminates,  the  program  writes  all  of  the  output  text  files  viewable  in  the  Output  Viewer 
into  a  single  data  file  with  the  name  selected  by  the  user. 

3.3.6  The  MIT-PLL  Help  Program. 


The  MIT-PLL  Help  program  is  a  stand  alone  Windows™  application  designed 
specifically  to  provide  extensive  on-line  assistance  to  the  PLL  user.  The  program  provides 


he^  on  a  wide  range  of  topics.  Pull  down  mmus  are  provided  for  the  following  general 
areas: 

PLL  User's  Manual-the  PLL  user's  manual  tailored  to  fit  the  PLL 
apfdication  {xovides  information  on  the  theory  and  operatbn  of  the  FORTRAN 
executable.  I^gure  3-29  shows  the  MIT-PLL  help  program  with  the  fi>cus  set  to  the  PLL 
User's  MaiHialiChapter  3:  Optinoum  Load  DistributionsIMuhi-Coiiqwnent 
Propellers|Contra-RotatBig  Propellers  selection. 


Figure  3-29.  WindowsTw  MIT-PLL  Help  Program 
PBD  User's  Manual-the  PBD  user's  manual  tailored  to  fit  the  PLL  Windows^i^ 
implication  is  also  provided  in  an  on-line  format.  The  sub-headings  provide  information 
on  the  theory  and  operation  of  the  FORTRAN  executable. 

Main  Menu-the  selections  fi^om  this  pull  down  menu  provide  information  on  the 
operation  of  the  PLL  main  menu  selections. 


Featiots-Uie  selections  from  this  pull  (k>wn  menu  |m>vide  information  on  the 
operation  of  the  PLL  viewer  windows  as  well  as  general  mformation  on  runnii^  PLL. 

He^the  selections  from  this  pull  down  memi  provide  information  about  the 
operation  of  the  help  (nogram. 

The  MIT-PLL  File  menu  allows  the  user  to  print  the  currently  di^layed  topic  or  to 
exit  the  program.  Figure  3-30  shows  the  MIT-PLL  He^  program  with  the  FeaturesjWake 
Viewer  selection  displayed. 
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F^ure  3-30.  Windows™  MIT-PLL  Help  Program  with  He4>  Displayed 


33.7  The  MIT-PLL  Editor  Program. 

The  MIT-PLL  Editor  program  is  a  stand  alone  Windows^*^  application  that  is  used 
to  edit  PLL  blade,  wake,  overall  input,  and  non-axisymmetric  stator  files.  The  program  is 
started  by  selectii^  Edit|Blade/Wake  fiom  the  PLL  main  menu.  The  user  may  open  a  PLL 
file  for  editing  by  selecting  one  of  the  four  file  types  firom  the  Open  pull  down  menu. 


Figure  3-i  1  shows  the  MIT-PLL  Editor  program  with  the  focus  set  to  the  OpenIBiade 
selection  and  an  open  blade  file. 
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Figure  3-31.  MIT-PLL  Editor 


PLL  blade  input  files  are  displayed  as  a  series  of  plots  of  parameters  versus  non- 
dimensional  radius  or  angle,  as  appropriate.  The  user  shifts  between  parameters  by  double 
clickii^  the  left  mouse  button  on  the  "Next  Parameter"  box  on  the  screen.  The  user  may 
alter  parameter  values  by  clicking  the  right  mouse  button  on  the  graph  at  the  desired 
value.  The  program  then  draws  the  data  point  with  the  nearest  non-dimensional  radius  as 
a  revised  point  at  the  indicated  location.  The  user  may  add  a  new  radius  by  double 
clicking  the  left  mouse  button  on  the  "Add  Radius"  box.  Figure  3-32  shows  a  blade  chord 
plot  with  tlK  record  plot  and  a  revised  plot  with  reduced  chord  length.  The  Add  Radius 
dialog  box  is  shown  with  a  new  radius  value  entered. 
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Figure  3-32.  MIT-PLL  Edit  Process 


When  the  user  adds  a  new  radius,  it  is  added  to  the  revised  curve  with  a  value  interpolated 
between  adjacent  point  values.  When  the  user  is  satisfied  with  the  revised  curve,  he  or  she 
may  update  the  data  by  selecting  File|Update  Data  fi-om  the  main  menu.  If  the  user  wishes 
to  discard  the  current  revised  curve  and  return  to  the  record  data,  he  or  she  selects 
File|Reset  Data  fix>m  the  main  menu. 

The  final  step  in  the  edit  process  is  saving  the  revised  file.  The  Save  pull  down 
menu  offers  the  option  of  saving  blade,  wake,  overall  input,  or  non-axisymmetric  stator 
files.  These  selections  allow  the  user  to  overwrite  the  original  file  that  was  edited  or  to 
save  the  current  data  under  a  new  filename.  The  MIT-PLL  Editor  program  then  writes  a 
standard  format  PLL  file,  readable  by  either  the  Windows’’'*^  PLL  application  or  the 
original  version. 

The  edit  process  for  wake  files  is  similar  to  that  for  blade  files.  Figure  3-33  shows 
the  edit  process  in  progress  for  a  wake  file. 
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Figure  3-33.  MIT-PLL  Wake  File  Edit  Process 


PLL  wake  input  files  are  displayed  as  a  series  of  plots  of  sine  and  cosine  harmonic 
coeflScients  versus  non-dimensional  radius  for  axial,  radial,  and  tangential  velocities. 
Editing  is  performed  as  described  above. 

Non-axisymmetric  stator  files  are  displayed  and  edited  differently  than  blade  and 
wake  files.  Figure  3-34  shows  a  non-axisymmetric  stator  file  in  the  edit  process. 


Figure  3-34.  MIT-PLL  Stator  File  E’dit  Process 


Non-axisymmetric  stator  files  are  displayed  in  a  polar  plot  format  with  the  plot  angle  being 
the  blade  angle,  zero  at  the  top  and  proceeding  counterclockwise.  The  magnitude  of  the 
point  indicates  the  fraction  of  mean  load  for  each  blade.  In  order  to  change  the  location 
and/or  loading  of  a  blade,  the  user  clicks  and  drags  the  point  to  the  desired  angle  and 
loading  using  the  right  mouse  button.  The  user  may  call  a  dialog  box  to  add  a  new  blade 
angle  by  double  clicking  the  left  mouse  button  on  the  "Add  Blade"  box.  New  blades  are 
added  at  a  load  of  1 .0.  The  mean  values  of  the  blade  loadings  for  the  revised  and  record 
plots  are  calculated  and  displayed  in  the  plot  legend.  The  process  of  updating,  resetting, 
and  writing  revised  stator  files  is  the  same  as  described  above  for  blade  files. 

Overall  input  files  are  displayed  and  edited  differently  than  blade,  wake,  and  stator 
files.  Figure  3-25  shows  the  MIT-PLL  editor  program  with  an  open  overall  input  file. 
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I. KnN  .........  .(Duct  thlchnussl/(Coiipancnt  M  dlomttr) 

IB.IIHBb . Duct  dtiMtur  (ft> 

■•DDDfai . ouioi  location  Of  duct  ■td-cho*’d  (ft> 

-1.2SDNI . ANlal  locattan  of  conponont  i  (fti 

5.........  .Nunbur  of  hladui  on  cunponont  1 

II. iaaMI . OiOMtor  of  conponont  1  (ft> 

sanplc-Old  File  containing  olade  inputs  fo**  coop-  i 

lb. iaaDai . olOMtor  of  mho  for  conponont  1  (ft> 

lanplo.uah  File  containing  «Mko  inputs  for  copp.  1 

l.fSObbb  .........  .Oalal  location  of  conponont  3  (ft) 

h . timber  of  blades  on  conponent  2 

ib.iaaDil . OiaMtet  of  coi^onont  2  (ft> 

sanplt.bld  File  cant><'‘ing  blade  Inputs  for  conp.  2 

Ib.lUlbl  . . Dlanatar  of  waha  for  conponont  2  (ft) 

saaple.aau  Ftie  containing  wane  inputs  for  conp.  2 
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Figure  3-35.  MIT-PLL  Input  File  Edit  Process 


Overall  input  files  are  displayed  in  text  format  on  the  screen.  Changes  are  made  by 
making  the  Edit|Input  Data  selection  from  the  main  menu  and  using  the  dialog  box 
provided.  Figure  3-36  shows  the  Two  Component  -  Ducted  Input  dialog  box. 
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Figure  3-36.  MIT-PLL  Two  Component  -  Ducted  Input  Dialog  Box 


Revised  overall  input  file  data  is  saved  by  using  the  Save|Input  selection  from  the  main 
menu  and  using  the  Save  As  dialog  box  to  replace  the  original  file  or  to  create  a  new  file. 

The  MIT-PLL  Editor  program  Help  pull  down  menu  includes  information  on  the 
program,  presented  in  the  form  of  message  boxes.  The  FilejPrint  selection  may  be  used  to 
make  a  hard  copy  of  the  current  file. 


3.3.8  Running  PBD. 

The  user  may  elect  to  run  the  PBD  portion  of  the  Windows^w  PLL  application  in 
two  different  ways.  The  first  way  is  to  cause  the  necessary  B-spline  file  to  be  written  by 
running  the  current  project  with  the  Write  PBD  files  option  selected  in  the  PLL  Runtime 
dialog  box,  and  then  selecting  File|Run  PBD  fi'om  the  main  menu.  This  will  allow  the  user 
to  select  the  CURRPBD.PBD  file,  which  is  written  by  PLL  with  the  settings  in  the  PBD 
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Settings  dialog  box,  using  the  Select  PBD  Admin  File  dialog  box.  The  program  then  calls 
the  PBD  FORTRAN  executable. 

The  second  way  to  run  PBD  is  to  select  File|Run  PBD  from  the  main  menu  and 
then  use  the  Select  PBD  Admin  File  dialog  box  to  run  a  previously  prepared  project  by 
selecting  the  appropriate  main  administrative  file.  The  program  is  designed  to  be 
compatible  vdth  files  written  for  the  original  FORTRAN  version  of  PBD.  This  may  be 
done  without  a  PLL  project  being  open  or  without  first  running  the  open  project. 

Running  PBD  has  no  effect  on  the  Blade  and  Wake  Viewer  windows,  but  PBD 
output  is  added  to  the  data  displayed  in  the  Output  and  Plot  Viewer  windows.  The  data 
displayed  in  the  Output  Viewer  window  changes  only  by  the  addition  of  a  screen  with  the 
PBDOUT.KTQ  file.  Figure  3-37  shows  the  Output  Viewer  window  with  tlw 
PBDOUT.KTQ  file  displayed. 
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Figure  3-37.  MIT-PLL  Output  Viewer  with  PBD  Output 


70 


After  a  PBD  run,  the  Plot  Viewer  window  displays  a  number  of  additional  pages. 
The  first  is  a  diagram  of  the  input  blade  B-spline  control  net  and  the  resultant  blade  in  the 
form  of  a  wirefi’ame  diagram.  The  second  additional  page  is  a  wirefi'ame  diagram  of  the 
output  blade  grid  for  each  blade  on  the  propulsor,  the  centerbody,  the  transition  wake,  and 
hub  and  duct  images  as  applicable.  The  third  page  is  a  plot  of  the  velocities  at  the  blade 
control  points.  The  next  is  a  contour  pbt  of  the  bound  circulation  strength.  The  fifth 
additional  plot  is  a  plot  of  the  radial  circulation  distribution.  The  final  additional  page  is  a 
Circumferential  Mean  Velocity  Plot.  Figures  3-38  through  3-43  show  each  of  the 
additional  pages. 
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F^ure  3-38.  MIT-PLL  Plot  Viewer  with  PBD  Input  Blade 
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Figure  3-39.  MIT-PLL  Plot  Viewer  with  PBD  Output  Blade  and  Centerbody 
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Figure  3-40.  MIT-PLL  Plot  Viewer  with  PBD  Control  Point  Velocity  Plot 
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Figure  3-41.  MIT-PLL  Plot  Viewer  with  PBD  Bound  Circulation  Contour  Plot 
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Figure  3-42.  MIT-PLL  Plot  Viewer  with  PBD  Radial  Circulation  Distribution  Plot 
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Figure  3-43.  MLT-PLL  Plot  Viewer  with  Circumferential  Mean  Velocity  Plot 

The  user  may  elect  to  view  the  PBD  output  in  the  Plot  Viewer  from  a  different 
orientation  and/or  in  a  different  scale.  This  is  accomplished  by  double  clicking  the  right 
mouse  button  on  the  Plot  Viewer  window  when  a  PBD  plot  is  being  displayed.  Figure  3- 
44  shows  the  PBD  Plot  Geometry  dialog  box. 
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Figure  3-44.  MIT-PLL  PBD  Plot  Geometry  Dialog  Box 

Figure  3-45  shows  the  result  of  altering  the  orientatbn  and  scale  for  the  plot  shown 
behind  the  dialog  box  in  Figure  3-44  above. 
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4.  CONCLUSIONS  AND  FURTHER  WORK 


f 


4.1  CoBcliisioM. 

The  stated  purpose  of  thb  thesis  was  to  demonstrate  the  feasibility  and  desirability 
of  the  enployment  of  personal  computers  in  hydrofoil  and  propeller  design.  The  iq^xoach 
was  incremental  in  nature,  focusing  first  on  relatively  single  FORTRAN  codes  fiom  the 
MIT  Hydrofoib  and  Propellers  course.  The  process  proceeded  through  the  de«gn  and 
implementation  of  an  integrated  application  that  provides  a  seamless  link  between  PLL 
andPBD. 

The  resulting  applications  are  considered  to  have  achieved  the  goal  of 
demonstrating  the  feasibility  and  desinfoility  of  the  enrq>loyment  of  personal  con^Hiters  in 
hydrofoil  and  propeller  design.  The  applications  provide  enhancements  in  the  user 
interface,  in  terms  of  input,  output,  on-line  help  and  portability  as  well  as  a  reduction  in 
the  total  time  required  in  the  design  process. 

4.2  Further  Work. 

Further  work  in  this  area  can  be  grouped  in  three  distinct  areas.  The  first  area  is 
expansion  of  the  PLL  Windows'^'^  application  to  provide  the  user  with  a  more  conq)lete 
range  of  propeller  design  tools.  The  application  could  be  expanded  to  provide  seamless 
links  to  codes  that  analyze  cavitating  propellers,  that  perform  steady  and  unsteady 
analyses,  and  that  produce  the  inputs  necessary  for  the  computer  aided  manufecturing  and 
in^rection  inxrcesses. 

The  second  area  for  further  work  involves  inqrrovements  to  the  existing  code 
without  alteration  to  the  qrpearance  or  opmation  of  the  iMogram.  The  inrogram  as  it 
exists  is  the  product  of  an  evolutionary  development.  Initial  versions  of  the  program  did 
not  include  all  of  the  c^xibilities  of  the  final  version.  As  a  resuh,  there  are  inconsisteiKies 
in  the  ^pearance  of  the  code  depending  on  the  point  in  the  process  at  which  it  was 
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written.  Given  unlimited  time,  it  would  be  a  straightforward  task  to  revise  the  code  in 
order  to  take  advantage  of  the  learning  curve  and  make  the  code  more  uniform  in  its 
(ksign  and  fiistor  in  its  execution.  This  would  resuh  in  improvements  that  are  only 
cosmetic  in  nature  and,  as  previously  stated,  would  do  little  in  terms  of  inqnoving  the 
usehibess  of  the  |»ogram. 

The  third  and  final  area  for  further  work  includes  improvements  to  the  PLL 
Windows^M  application  produced  as  a  part  of  this  thesis.  Some  of  the  possible 
improvements  are  listed  below. 


-Incorporate  graphical  output  specific  to  duct  geometry  and  ring  geometry  into  the 
plots  available  in  the  Plot  Viewer  window. 

-Incorporate  graphical  output  for  non-axisymmetric  stator  blade  forces,  wake 
velocities,  and  circulation  distribution  into  the  pbts  available  in  the  Plot  Viewer  window. 

-Add  the  capability  to  display  pre-existing  PBD  output  files  in  the  Plot  Viewer 
window  or  a  separate  window  that  may  be  created  and  closed  by  the  user  during  program 
executioiL 

-Incorporate  the  MIT-PLL  editor  program  into  a  window  in  the  PLL  program  to 
allow  the  user  to  make  blade,  wake,  stator,  and  overall  input  file  changes  more  rapidly 
during  the  design  process. 

-IiKorporate  a  "tool  bar"  or  "tool  palfele"  conprised  of  speed  buttons  to  allow  the 
user  to  quickly  make  common  selections  by  clicking  on  a  button  displayed  on  the  screen 
instead  of  usit^  the  main  menu. 

-Redesign  the  MIT-PLL  Help  program  as  a  standard  WhkIowsTm  Help  program. 

-Incorporate  a  capability  for  the  user  to  input  circulation  distributions  direct^  as 
Glauert  coefficients. 

-Redes^  the  dialog  boxes  in  order  to  provide  a  more  intuitive  user  interfiice. 

-Inplement  the  application  for  the  UNIX  operating  systera 


i 
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The  unplnnentation  of  any  of  these  reconanendations  would  provide  tangiUe 


improvements  to  the  software  system  jxesented  in  this  thesis. 
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APPENDIX  A 


Hydrofoil  Vortex  Lattice  Lifting  Line  Program  Code. 


APPENDDC  A.1 


The  VLL  WinMain  function. 
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A.1  The  VLL  WinMain  fuactioii. 

The  WinMain  function  is  the  main  entry  point  for  an  application.  The  WinMain 
function  for  VLL  is  shown  bdow.  For  the  purposes  of  this  thesis,  code  be  depicted  in 
a  smaller  font  to  distinguish  it  from  main  body  text.  Note  that  all  text  that  falls  between  an 
occurrence  of  "/*"  and  the  next  occurrence  of  "*/"  is  interpreted  by  the  compiler  as  a 
comment.  Also  note  that  the  text  following  an  occurrence  of//"  on  a  given  line  is  also 
interpreted  by  the  compiler  as  a  comment. 


$  • 


*  the  WinMain  function  creates  the  main  window 

«*«**««*«*#**«««***««*«««**«*«*****<»*««*********«*******************i*/ 

int  PASCAL  WinMain(HINSTANCE  hinstance,  HINSTANCE  hPrevInstance, 

LPSTR  IpCmdParam,  int  nCmdShow) 

{ 

f****<^it^*^^*^^*^t******************************t*************»**»**** 

*  variable  declarations 

*«««•«««*«**•*««»*•••*«**«•«*«•«•«•*««*•*«*«******•******««*«*««****•/ 

char  ProgNamel  ]  =  "Hydrofoil  Vortex  Lifting  Line";  //program  name 


HWND  hWnd; 
MSG  msg; 


//handle  to  the  main  window 


//a  Windows  message  structure 


//define  and  register  the  window  class,  if  an  instance  of  this  application 
//  is  not  already  running 

if(!hPrevInstance){ 


WNDCLASS  wndclass; 

wndciass.lpszClassName  = 

wndciass.lpfi)WndProc  = 

wndciass.(^lsExtia  = 

wndclass.chWndExtra  = 

wndclass.hInstanoe  = 

wndclas8.hIcon 

wndclass.hCuisor  = 

wndclass.hbrBackground 
wndclass.lpszMenuName  = 

wndclass.style 

if(IRegisterClass(&wndclass))exit(0);; 

) 


ProgName; 

(WNDPROC)  MainWndProc; 

0; 

0; 

hinstance; 

LoadIcon(iiInstance,”NEWICON"); 
LoadCursoitNULL,  IDC  ARROVO; 
(HBRUSH)  (COLOR_Wn>lDOW  + 1); 
"Main_Menu"; 

CS_VREDRAW  ]  CS_HREDRAW; 


ghinstance  =  hinstance; 
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//cfeate  and  display  window  of  the  wnddass 


hWnd  =  CiealeWindow(ProgNaine,''HydntfoU  Vortex  Lifting  Line”, 
WS  OVERLAPPEDWINDOW. 

CW  USEDEFAULT.  CW  USEDEFAULT, 
CwIuSEIffiFAULT.  CW^USEDEFAULT. 

Nuix^  NULL,  hlastance,  NULL); 

ShowWindow(hWnd,  nCmdSbow); 

UpdateWindow(hWnd); 

/Avhile  the  window  exists,  receive  and  process  Windows  messages 

while  (GetKfcssage(&msg,  NULL,  0, 0)) 

{ 

TranslateMessage(ftnisg); 

DlspatchMessage(Ainsg); 

} 

return  msg.wParam; 

} 


When  viewed  for  the  first  time,  and  particularly  without  the  benefit  of  experience 
with  the  C  programming  language,  the  logic  and  operation  of  a  WinMain  fiinction  is  not 
intuitively  obvious.  For  that  reason  an  extensive  explanation  of  this  particular  WinMain 
function  is  provided  here. 

The  fiinction  prototype  for  the  WinMain  function,  shown  here,  indicates  that  the 
function  returns  an  integer  value  and  that  the  PASCAL  calling  convention  is  used. 


int  PASCAL  WiiiMain(HINSTANCE  hlnstance,  HINSTANCE  hPrevInstance, 
LPSTR  IpCmdParain,  int  nCmdShow) 


The  integer  returned  is  msg.wParam,  which  consists  of  information  regarding  the  message 
processed  by  the  WinMain  function.  The  value  returned,  however,  is  not  currently  used 
by  Windows’’’^.  The  PASCAL  calling  convention  is  employed  because  of  its  efiRciency  in 
pas^g  variables  between  functions. 

The  WinMain  function  receives  four  parameters  fi'om  Windows™.  The  first  is  the 
HINSTANCE  hlnstance.  This  is  a  16  bit  handle  to  this  instance  of  VLL.  The 
hPrevInstance  parameter  is  a  handle  to  the  most  recent  instance  of  VLL  that  is  still 
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ninnii\g.  It  will  be  NULL  or  0  if  there  are  no  other  instances  running.  The  third 
parameter  is  a  LPSTR,  which  is  a  32  bit  pointer  to  a  characto'  string.  A  pointer  is  a 
variable  used  to  store  a  memory  address.  The  nCmdShow  parameter  is  an  integer  value 
that  indicates  how  the  program  will  be  initially  di^layed. 

The  first  three  lines  of  code  in  the  WinMain  function  are  dedarations  of  automatic 
variables.  An  automatic  variable  is  declared  inside  a  function  and  is  therefore  private  to 
that  function.  The  variable  only  exists  for  the  duration  of  the  function  call,  and  memory 
allocated  for  the  variable  is  fi'eed  when  the  function  returns. 

char  ProgNamel  ]  ~  'Hydrdbil  Vortex  Lifting  Line”;  //program  name 

HWND  hWnd;  //handle  to  the  main  window 

MSG  msg;  //a  windows  message  structure 

The  variables  declared  in  this  WinMain  function  are  of  three  types.  The  first  is  an  array  of 
charaaer  (char)  type  data  known  as  a  string.  The  name  of  the  variable  is  ProgName.  As 
ProgName  is  declared  it  is  also  initialized  with  the  value.  Hydrofoil  Vortex  Lifting  Line\0. 
The  "\0"  is  NULL  string  terminator.  The  compiler  automatically  determines  the  size  of 
the  array  necessary  to  store  the  characters,  including  the  string  terminator. 

The  second  variable  declared  is  of  the  HWND  type.  A  HWND  is  a  16  bit  handle 
to  a  window.  The  handle  is  used  by  Windows™  to  identify  the  window  created  by  this 
particular  \^nnMain  function. 

The  third  variable  is  a  Windows™  message  structure.  The  concept  of  object- 
oriented  programnung  is  that  "objects”  exist  in  the  form  of  data  structures  and  are 
operated  on  by  various  functions*^.  A  message  structure  includes  six  separate  pieces  of 
information.  The  details  of  the  message  structure  can  best  be  seen  by  analyzing  the 
declaration  of  the  structure,  shown  here. 

*^ClMri»  Petzofci,Proy«P»»ung  WinJowi™ (Redmond.  WaAingltoo:  Mkrocoft  Rren.  l9SS)p.l7. 
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typedef  struct  tagMSG  ( 

/*  msg*/ 

HWND 

hwnd; 

UINT 

»»«*— f 

WPARAM 

wPaiaat; 

LPARAM 

IPwam; 

DW(»D 

time; 

PCHNT 

pt; 

}M5G: 

The  typedef  keyword  asagns  MSG  as  the  name  of  the  structure  defined  in  the 
statement.  The  window  handle,  hwnd,  is  the  handle  of  the  window  that  recdves  the 
message.  The  unsigned  integer,  message,  is  message  numbo’.  The  WP ARAM ,  wParam, 
is  a  16  bit  signed  parameter  passed  with  the  message.  The  LPARAM,  IParam  is  a  32  bit 
signed  parameter  passed  with  the  message.  The  DWORD,  time  is  a  32  bit  unsigned 
integer  udiich  specifies  the  time  udien  the  message  was  posted.  The  POINT,  pt,  is  a  point 
data  structure  that  contains  the  integer  position  in  screen  coordinates  of  the  cursor  at  the 
time  the  message  was  posted. 

The  next  step  in  initializing  the  program  is  to  re^ster  a  window  class.  If  there  is 
no  previous  instance  of  VLL  running,  then  a  window  class  is  defined  and  registered.  The 
window  class  is  defined  by  filling  in  a  WNDCLASS  structure.  The  details  of  the  window 
class  structure  are  shown  below. 


typedef  struct  tagWNDCLASS  {  /*  wc  */ 


UINT 

style; 

WNDPROC 

ll^WodProc; 

int 

d>ClsExtra; 

int 

cbWndExtia; 

HINSTANCE 

hinstance; 

HKX>N 

hloon; 

HCURSOR 

hCursor, 

HBRUSH 

hbfBackground; 

LPCSTR 

IpszMenuName; 

LPCSTR 
}  WNDCLASS; 

IpszClassName; 

The  style  is  an  unsigned  integer  that  tells  the  Windows™  envvonment  how  to 
handle  windows  of  this  class.  The  IpfiiWndProc  parameter  is  a  32  bit  pointer  to  the 


address  of  a  function  that  will  handle  messages  passed  to  the  program.  The  cbCIsExtra 
and  cbWndExtra  int^ers  are  amounts  of  extra  bytes  allocated  for  use  by  the  programmer. 

The  hinstance  handle  informs  Windows'^  which  instance  of  the  program  owns  the 
window  class.  The  handles,  hicon,  hCursor,  and  ld>rBackground  spedfy  the  ^>ecify  the 
program  icon,  cursor,  and  client  area  background  color  of  the  windows  created  u^g  this 
class. 

The  IpszMoiuName  is  a  32  bit  pointer  to  a  character  string  that  indicates  the  name 
of  the  main  menu  to  be  used  by  the  program.  The  IpszCIassName  is  a  pointo*  to  a  string 
that  specifies  the  name  of  the  class. 

The  code  below  checks  to  see  if  there  is  a  previous  instance  of  VLL  running  using 
the  if(!hPrevInstance)  statement.  If  there  is  no  previous  instance,  then  the  steps  within  the 
braces  are  executed.  First,  a  WNDCLASS  structure  variable,  wndclass  is  declared  and 
initialized.  It  should  be  noted  that  a  variable  naming  convention  called  Hungarian  notation 
is  used  for  the  data  contained  in  structures.  This  convention  consists  of  using  a  relatively 
short  prefix,  the  variable  name,  and  a  longer  descriptive  sufiSx  to  indicate  the  specific 
parameter  of  the  structure. 

ifl[!hPrevIiistance){ 

WNDCLASS  wndclass; 

wndclass.lpszClassNaroe  = 

wndclass.lpfiiWndProc  = 

wndclass.(bClsExtia  = 

wndclass.cbWiidExUa 
wndclass.hInstanoe  = 

wnddasahloon  = 

wn(lcla8s.hCursor 

wndclass.libfBadcground  = 

wndclass.IpszMenuName  = 

wndclass.styk  » 

tfi[IR^isterClass(&wndclass))exit(0);; 

> 

The  parameters  of  the  window  class  are  initialized  with  the  values  that  follow: 


ProgName; 

(WNDPROQ  MainWndProc; 

0; 

0; 

hinstance; 

LoadIcon(hInstance.*NEWICON*); 
LoadCuisorfNULL,  UKI  ARROW); 
(HBRUSH)  (COL(»_WDroOW  +  1); 
"Main  Menu”; 

CS  V^RAW  I CS  HREDRAW; 


IpazDassName 

address  of  the  diaracter  array,  Progname 

If^WndProc 

address  of  the  function  MainWndProc 

cbClsExtra 

0  extra  bytes 

d>WfidExtra 

0  extra  bytes 

hinstance 

a  handle  to  tins  instance  of  VLL 

hicon 

the  handle  of  the  icon  loaded  by  the  Loadlcon  statonent 

hCursor 

the  handle  of  the  cursor  loaded  by  the  LoadCursor  statement 

M»6ackground 

the  handle  to  the  brush  currently  set  in  the  Windows'^  Control 

Panel  program 

IpszMenuName 

the  luune  of  the  top  level  menu  to  be  used 

style 

CS.VREDRAW  |  CS_HREDRAW  are  two  window  class  styles, 

combined  by  the  C  logical  ”or"  operator,  that  control  the  way 

WindowsTM  redraws  the  application  window 

After  the  window  class  structure  is  filled  in  the  program  registers  the  class  using 
the  Re^sterClass  fimction.  The  Regist^lass  function  receives  a  pointer  to  a 
WNDCLASS  structure  and  returns  an  atom  that  uniquely  identifies  the  class.  An  atom  is 
a  16  bit  int^er  handle  that  identifies  a  character  string.  If  the  RegisterClass  function  fiuls, 
the  program  is  terminated  by  the  exit  statement. 

The  ghinstance  =  hinstance;  statement  saves  a  copy  of  the  handle  to  this  instance 
of  VLL  in  the  global  HINSTANCE  variable,  ghinstance.  The  global  variable  will  be  used 
later  in  the  program  to  create  temporary  windows  called  dialog  boxes. 

The  following  code  is  used  to  create  and  display  the  wnndow: 


hWnd  >■  CreateWiiid(nv^rogNauiie,*Hy(iiofoil  Vortex  Lifting  Line”, 
WS_OVERLAPPEDWINDOW. 

CW  USEDEFAULT.CW  USEDEFAULT, 

CW  USEDEFAULT,  CW  USEDEFAULT. 

NUil.  NULL,  hinstance,  NULL); 


ShofwWiMtowOiWBd.  nCndShow); 
l4^Wiiidow(kWad): 


Hie  CreateWindow  function  takes  1 1  parameters  and  returns  a  handle  to  the 
window  created.  A  description  of  the  1 1  parameters  follows; 


LPCSTR 

LPCSTR 

DWORD 

int 

int 

int 

int 

HWND 

HMENU 


IpszClas^ame 

ipszWindowName 

dwStyle 

X 

y 

nWidth 

fiHeight 

hwndParent 

hmenu 


HINSTANCE  hinst 
void  FAR  *lpvParam 


pointer  to  the  rostered  class  name 
pointer  to  the  window  text 
window  style 

horizontal  position  of  window 

vertical  position  of  window 

window  width 

u^ow  height 

handle  of  parent  window 

handle  of  menu  or  child-window  identifier 

handle  of  application  instance 

po'mter  to  window-creation  data 


The  ShowWindow  function  receives  two  parameters,  the  handle  of  the  window  to 
be  shown  and  the  integer  nCmdShow  viliidi  defines  how  the  windov/  should  initially  be 
displayed.  The  function  causes  the  specified  window  to  be  displayed  on  the  screen  in  the 
^lecified  manner.  The  UpdateWindow  fiinction  takes  the  handle  to  the  window  and  sends 
a  WM_PAINT  message  to  cause  the  window  client  area  to  be  painted. 

The  last  statements  of  the  WinMain  function  are  the  message  loop.  The  message 
loop  receives  messages  fiom  Windows'^,  translates  them,  and  sends  them  to  the  window 
procedure  for  processing. 
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The  GetMessage  function  receives  messages  from  the  application  message  queue 
and  fills  in  the  MSG  structure.  The  function  returns  "0"  upon  receipt  of  a  WM_QUIT 
message.  The  loop  is  then  termiruded  and  the  program  ends. 

'\%tua]  key  messages  are  translated  by  the  TranslaleMessage  function.  The 
Di^ratchMessage  function  sends  messages  to  the  window  indicated  by  the  insg.hwnd 
window  handle. 

It  is  important  to  note  here  that  the  GetMessage,  TranslateMessage,  and 
DispatchMessage  functions  do  not  recdve  the  message  structure  itself  but  the  address  of 
the  message  structure,  &insg.  The  ampersand  is  the  address  operator.  When  followed  by 
a  variable  name,  it  indicates  the  address  of  the  variable.  In  the  C  programming  language, 
functions  may  not  operate  on  the  arguments  that  are  passed  to  them.  Since  the  purposes 
of  these  functions  include  operating  on  the  data  contained  in  the  message  structure,  the 
address  of  the  structure  must  be  passed. 


APPENDIX  AJ 


The  VLL  MauiWndProc  fuaction. 


TkcYLLMauWadProcfuctiMi. 


The  MiinWndProc  function  is  rderred  to  as  the  window  procedure.  It  is  actually 
a  callback  function  that  uses  a  switch  in  processng  and  responding  to  Windows’’^ 
messages.  The  MainWndProc  for  VLL  is  shown  below. 


f*m*******0*********M********************************************** 

*  the  MainWndPioc  function  haadks  input  and  window  iMnagfanemmesiBiges 


LRESULT  CALLBACK  .export  MainWiidProc(HWND  hWnd.  UINT  menage. 
WARAM  wPaiam,  LPARAM  IPanun) 


{ 


« 


switch  (mesage) 

{ 

caseWM_CCA<fMAND: 

{ 

//this  case  refers  menu  selections  to  the  WMConunand.Handler  function 

return  HANDLE_WM_COMMAND(hWnd,  wParam,  IParam,  WMConunand.Handler); 


} 

caseWM  CREATE: 

{ 

//this  case  initializes  two  global  variables  upon  creation  of  the 
// main  window 


HDC  tempDC; 


//handle  to  a  temporary  device 
//  context 


//get  a  handle  to  the  screen  device  context 
tenqiDC  -  GetDC(hWnd); 

//determine  the  width  of  the  di^lay  in  pixels  aixi  the  height  of  the  displ^ 
// in  raster  lines  and  cast  them  as  floats 

width  °  (float)GetDevioeC^  (tempDC,  HOR2RES); 
height  =  (lloat)GetI>eviceCaps  (tem{d>C,  VERTRES); 

//since  the  normal  displ^  aspect  ratio  is  4  to  3.  ensure  that  the  graphical 
// oidput  made  by  the  program  is  in  that  aqrect  ratio 

ifi[(width/height)>(4.0/3.0)) 

width  >  hdght*(4.0/3.0); 


else 


height  >  width*(3.0/4.0); 


//lelciM  the  laadle  to  dK  device  oonlext 
BrieeirnC(hWiid.teaipDQ; 

IMO; 

> 

caMWM_PAlNT:{ 

/Ahis  raan  ImiwWm  p«iii«ii^  tha  Tiiiif  n 

HDC  FeiatDC,  //handle  to  a  device 

//owtext 

PAINTSTRUCT  pa;  //paint  stnictiire 

//prepaie  hWnd  fiir  painting  and  fill  the  paint  stmcture.  pa 
PaintDC  B^inPainKhWnd.  ftps); 

//paiitt  the  data  box  whenever  the  screen  is  repainted 
paint_data_box(PaintDC ); 

/^laint  the  graphs  if  vortex  has  been  run  and  the  variable  data  has  not 
//  changed  since  vortex  was  run 

if(run_fiag) 

paint _graphs(PaintDC); 

//mark  the  end  of  painting  hWnd  and  return  0 
EndPaint(hWnd,  ftps); 
return  0; 

} 

cascWM_DESniOY:{ 

//this  case  handles  requests  to  exit  the  program  made  by  methods  other  than 
//the  main  menu 

//ddete  the  tnnporaiy  plot  data  file  if  it  was  created 
if(aocess(”ptotdaLtmp",  0)  0) 

unlinkCpIotdaLtmp*); 


PoalQuitMessage(0); 


munO; 


* 


f 


t 


f 


< 


« 


> 

> 

ratafn  DefWiadowPrac  (hWnd.  mewifc,  wPmm,  IPinm); 

} 

The  fimctkm  prototype  for  the  MainWndProc  function  is  shown  bdow. 

LRESULT  CALLBACK  jeiqwrt  is  the  return  type  of  the  function.  It  tdls  the  compiler 
to  add  the  code  required  to  allow  the  Windows'^  operating  environmoit  to  call  the 
fonction.  The  four  parameters  passed  to  the  window  procedure  are  the  same  as  the  first 
fiMir  parameters  of  a  message  structure.  This  is  not  surprising  since  the  purpose  of  the 
MainWndProc  function  is  to  respond  to  messages.  The  window  handle  is  passed  because 
any  given  program  can  use  a  mimber  of  different  windows.  The  unsigned  integer  specifies 
the  type  of  message  being  passed.  The  information  passed  in  wParam  and  IParam  varies 
with  the  message  type. 

LRESULT  CALLBACK  export  MainWndProc(HWND  hWnd  UINT 
V^ARAM  v/Pama,  LPARAM  IPaiam) 

The  next  code  encountered  in  the  MainWndProc  function  is  a  switch.  In  C,  a 
switch  first  evaluates  the  expression  contained  in  ihe  parentheses  for  an  integral  value. 

The  program  then  branches  to  the  case  corresponding  to  the  value  of  the  expression  and 
continues  execution  until  a  break  stat«nent  or  the  end  of  the^switch  is  encountered.  A 
d^tuh  case  may  also  be  specified.  Ar^  value  of  the  expression  not  corresponding  to  one 
of  the  other  cases  causes  the  default  case  to  be  executed.  In  the  case  vtiiere  tho'e  is  no 
definih  and  no  case  is  matched,  the  cases  are  skipped  and  execution  continues  with  the 
code  after  the  switch. 

In  the  case  of  the  MainWndProc  fimction,  the  exprestion  evaluated  is  amply  the 
unsigned  integer  indicating  the  message  type, 
switch  (message) 
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This  switch  responds  to  four  cases,  WM_COMMAND,  WM_CREATE,  WM_PAINT, 
and  WM_DESTROY.  These  cases  are  messages  sent  to  the  MainWndProc  by  the 
Windows^  environment. 

The  WM_COMMAND  message  is  sent  when  the  user  makes  a  menu  selection 
using  the  mouse  or  an  accelerator  key.  It  can  also  be  sent  by  a  control  in  a  dialog  box 
owned  by  the  main  window.  When  the  WMjCOMMAND  message  is  recdved  by  the 
MainWndProc  function,  it  refers  the  messt^e  to  the  WMCommand_Handler  function  by 
calling  the  HANDLE_WM_COMMAND  macro.  The  HANDLE_WM_COMMAND 
macro  breaks  messages  down  into  a  form  that  can  be  used  by  the  WMCommand_Handler 
function.  The  MainWndProc  function  also  returns  the  value  returned  by  tiie 
HANDLE_WM_COMMAND  macro,  indicating  to  the  Windows^w  environment  if  the 
message  was  handled. 

caseWM  COMMAND: 

{ 

//this  case  refers  menu  selections  to  the  WMConunand_Handler  function 

return  HANDLE_WM_COMMAND(hWnd,  wParam.  IParam,  WMConunand_Handlcr); 

> 


One  of  the  most  attractive  features  of  the  Windows'^  environment  is  its  device 
independence.  In  order  to  build  device  independence  into  the  VLL  application  it  is 
necessary  to  assess  the  capabilities  of  the  output  devices  used  by  the  program  and  tailor 
the  output  accordingly. 

The  WMjCREATE  message  is  sent  after  a  window  is  created  but  before  it  is 
di^layed.  The  WM_CREATE  case  is  used  to  initialize  the  global  variables  width  and 
height,  v^ch  are  used  to  scale  the  output  that  is  drawn  on  the  monitor.  Note  that  global 
variables  are  variables  that  are  made  available  to  all  of  the  functions  in  the  program  by 
declaring  them  external  to  any  function  definition. 
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iWM  OtEATE: 


//ttk  cMe  iiMaMzes  two  gMMi  variables  upon  cieatioii  of  te 
//m^wiadofw 

HDC  teaipDC.  //handle  to  a  ten^omy  device 

//context 

//fet  a  han^  to  the  acieen  device  context 
teffl|iDC-GetDC(hWnd); 

//detetmine  the  width  of  the  display  in  pixels  and  the  hei^t  (rf  the  diq>l^ 

// in  raster  lines  and  cast  them  as  floats 

width  *  (float)GetDevioeCap6  (tempDC,  HORZRES); 
height  -  (flaat)GetDevioeCaps  (tempDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3.  ensure  that  the  gra|diical 
// output  made  by  the  program  is  in  thm  aspect  ratio 

if((wkith/hdght)>(4.0/3.0)) 

width  >-height*(4.0/3.0); 
else 

height «  width*(3.0/4.0); 

//release  the  handle  to  the  device  context 
ReleaseOC(hWnd,tenqiDC); 
return  0; 

} 

The  first  thing  done  in  the  WM_CREATE  case  is  to  declare  tempDC  as  a  handle 
to  a  device  context.  A  device  context  is  the  link  between  a  Windows'^  api^cation,  a 
device  driver,  and  an  output  device  such  as  a  monitor.  The  next  statemoit  uses  the 
GetDC  function  to  assign  the  value  of  the  handle  of  the  nuun  window  device  context  to 
ten^DC.  Once  this  is  done,  the  case  uses  the  GetDeviceCaps  function  to  retrieve  the 
width  of  the  monitor  display  area  in  pbcels  (HORZRES)  and  the  hdght  of  the  monitor 
area  in  raster  lines  (VERTRES).  The  im^er  values  returned  are  cast  as  floating 
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point  values  because  the  width  and  height  variaUes  are  declared  as  glcdud  floadng  point 
variables. 

Most  but  not  all  device  contexts  have  a  horizontal  to  vertical  a^>ect  ratio  of 
640/480,  or  4/3.  The  screen  and  printer  output  functions  written  for  VLL  assume  a 
display  area  ^  of 640  (mds  horizontally  and  480  raster  lines  vertically  and  use  the  width 
and  height  values  to  scale  the  output  to  fit  the  device  context.  This  prevoits  the  output 
firom  being  distorted  in  aspect  ratio  or  scale  whoi  drawn  on  a  device  with  a  different 
aq)ect  ratio  or  a  different  display  resolution.  The  values  of  width  and  hdght  are  forced  to 
the  af^ropriate  ratio  by  evaluating  the  aspect  ratio  of  the  device  context  and  constraining 
the  value  of  width  to  4/3  of  height  if  the  aspect  ratio  is  greater  than  4/3,  and  constraining 
the  value  of  height  to  3/4  of  width  if  the  aspect  ratio  is  less  than  4/3. 

After  using  the  device  context,  the  program  must  release  it  so  it  may  be  used  by 
other  applications  if  necessary.  This  is  accomplished  by  the  ReleaseDC  command.  The 
final  step  of  the  case  returns  "0”,  indicating  to  the  Windows'^  environment  that  the 
message  was  handled  by  the  MainWndProc  function. 

The  WM_PAINT  message  is  received  whm  either  the  application  or  the 
Windows''^  environment  requests  that  all  or  part  of  the  client  area  be  redrawn.  This  could 
occur  if  the  window  were  resized  or  if  the  data  to  be  displayed  changed. 

caseWM.PAINT.  { 

//this  case  handks  painting  the  screen 

HZX:  PaintDC;  //handle  to  a  device 

//context 

PAlNTSTRUCTpr,  //paint  structure 

//prqiaie  hWnd  fix  paitding  and  fill  the  point  structure,  ps 

PaiaCDC  >  BeginPaint(hWnd.  ftps); 

//pautt  the  data  box  whenever  the  screen  is  repainted 


paintjdataJboxfPaintDC  ); 


Z^paiat  tte  fiiflit  if  vortex  hat  been  niB  aad  the  wiaUe  data  hai  not 
// chaafed  rtaoe  vortex  waa  nm 

iflCnmJlag) 

paint jgftfbsCPuaS)C)i 
/Znauk  the  end  of  painting  hWnd  and  raturn  0 
Endi>nini(hWnd.Apa); 
lelaniO; 

> 


The  WM_PAINT  case  declares  two  variables.  The  first  is  a  handle  to  a  device 
context,  PaintDC  in  this  case.  The  second  is  a  punt  structure,  ps.  A  Windows'^  paint 
structure  is  decUred  as  follows: 


typedefstmcttagPAINTSTRUCTf  /*pe«Z 
HDC  hdc; 

BOOLflBnee; 

RECT  fcPaint; 

BOOLOtestan: 

BOCX.  flncUpdate; 

BYTE  igbReserved(16]; 

}  PAINTSTOUCT; 


The  first  parameter  is  a  handle  to  a  derice  context.  Hie  second  parameter  is  a  16  bit 
boolean  value  indicating  whether  or  not  the  background  needs  to  be  redrawn.  The  third 
parameter  is  a  Windows''^  rectangle  structure  that  ^lecifies  the  upper  left  and  lower  ri^ 
comers  of  the  rectangle  to  be  painted.  The  remaining  parameters  of  the  PAINTSTRUCT 
are  used  internally  by  the  Windows™  environment. 

A  ^^findows™  rectangle  structure  is  declared  as  follows: 


tsrpedefstnicttagRECT{  Z*ic*/ 
iatiefi; 
iattop; 
iat  right; 
int  bottom; 
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}RECr, 


Tlw  purpose  of  the  left  and  top  parameters  is  to  specify  the  Cartesian  coordinates  of  the 
upper  left  corner  of  the  rectangle.  The  right  and  bottom  parameters  specify  the 
coimfinatesofthe^  erri^  corner. 


TheWM_  case  uses  the  B^inPamtfitnctiQn  to  prepare  the  main  window 


ft>r  painting  and  to  fill  the  paint  structure  with  the  data  necessary  for  painting  the  window. 
The  B^inPiunt  function  receives  the  handle  of  the  window  to  be  painted  and  the  address 
of  the  paint  structure  to  be  used  and  returns  the  handle  of  the  device  context.  Once  this  is 
com|dete  the  case  calls  paint_data_box,  a  function  written  specificaUy  for  the  VLL 
aiqplkation  to  paint  the  current  data  sdections  on  the  screen.  If  the  current  data  set  has 
been  processed  by  the  part  of  the  program  that  p«forms  the  actual  hydrodynanuc 
calculations,  as  indicated  by  the  state  of  the  integer  variable  run_flag,  the  case  also  causes 
the  graphs  to  be  drawn.  This  is  done  by  c«'’  ^  pmtjgraphs  fiincdon,  another 

function  written  specifically  for  the  VLL  api^  :Jrn. 

After  the  painting  is  complete,  the  EndPaint  fiinction  is  called  to  mark  the  end  of 
the  painting  process.  The  case  then  returns  "0”  to  indicate  *hat  tk.^  message  was 
processed  by  the  MainWndProc  function. 

The  final  case  in  the  switch  is  WM_DESTROY,  which  is  shown  beiow.  This  case 
handles  requests  to  terminate  the  program  made  by  methods  other  than  the  main  menu 


FilejExit  selection.  The  access  function  is  used  to  determine  if  the  temporary  plot  data  file. 


plotdat.tnq)  exists  and  ddetes  the  file  if  it  does  exist. 


The  access  function  receives  a  file  name  and  an  access  code.  The  access  code  "0" 


causes  the  function  to  chedc  for  file  existence  and  return  ”0"  if  the  file  does  exist.  The 


unlink  function  ddetes  the  s^recified  file. 


caseWM_DESmOY:{ 


//this  case  handles  lequesis  to  exit  the  program  made  by  methods  other  than 
//the  main  menu 


»  • 
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//deklB  tlM  to^nniy  plot  dM  Ilk  if  to  wit  cicairi 


tf[aKen(*|ilolikLtiiip”.  0)  —  0) 
mliakC'iiktoktlaip*): 

FMQBiAifeMfe^); 

vetmO; 

> 

The  WMJDESTROY  case  then  posts  a  message  to  the  Windows'^  environment 
reqtmsdng  to  temnnate  execution  and  returns  "0”,  indicating  that  the  message  was  handled 
the  MainWndProc  function. 

The  last  statement  in  the  MainWndProc,  shown  below,  refers  messages  not 
processed  by  one  of  the  four  cases  in  the  switch  to  the  defiuih  window  procedure.  The 
Defl^^owProc  function  processes  the  message  and  returns  a  value  which  is  then 
returned  to  the  Windows'^  environment. 

letuni  DefWtndowProc  (bWnd,  message,  wPama,  IPanun); 
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APPENDIX 


The  VLL  WMCoamiaiMi  Headier  function. 


Tkc  VLL  WMCMiaaad.HjUKlIer  fmctiMi. 

The  WMCoinnuiid_Handler  function  provides  the  functionality  of  a  main  menu  to 
a  Windows’’^  program.  The  WMConnnand_Handier  function  used  by  VLL  is  shown 
bdow. 


void  WMCommand  HaiKfler(HWNDhWiMl.iirtidHWNDImiidCtl.inNTcodeNbtify) 

{ 

DLtTROC  dlgProc;  /^wimer  to  a  diak^  procedure 

//this  switch  handles  the  various  main  menu  selections 

switdi(id) 

{ 

caseIDM_RUN:( 

RECT  teaq>_rect;  //temporary  rectangle  structure 

// for  specifying  portion  of 
//  screen  to  redraw 


//if  the  user  selects  "Run",  run  the  vortex  program 
vortex(w_run); 

//set  the  run  flag  to  1  since  vortex  has  been  run 
run_flag»  1; 

//cause  appropriate  sections  of  the  screen  to  be  repainted 

temp_recttop  *  (intXlefl_iccttop*beight/480.0); 
temp_rectbottom  =  (iat)(l^_rectbottom*beight/480.0); 
lemp_tectleft  >  (intXI^_>^lcft*width/640.0); 
tenq>_rectright  »(intXleft_recLright*wi<hh/640.0); 

InvalidateRect(hWnd,  fttemp_rect.  TRUE); 

temp_recttop  (intXright_recttop*beight/480.0); 
lenq)_rectbottom  -  (intXright_iectbo(tom*beight/480.0); 
temp_teGtleft  ~  (intXright_iectleft*width/640.0); 
tmnp_recLrigbt  *  (intXn8bL^^>i8bt*widUi/640.0); 

Invalidatdtect(hWnd.  fttemp_iect.  TRUE); 

break; 

} 

GaaelDM_PRINT;{ 

//this  case  calls  the  print  dialog  box 

FRINTDLG  pd;  //print  dialog  structure 

DOCINFO  di;  //document  informatirm  stru^ure 

int  j;  //page  counter 


//if  a  priitt  request  is  made  using  the  main  memi  and  vortex  hm  not  been  run. 


I 


// pritt  •  waraiBf  aad  deay  dw  nquat 
ifOfwiJIag) 


MenacdBeep(MBja»lEX(XAl^TI01^. 
MchwubBotQiWb^  "MM  nin  pngnm  prior  to  priatiiig.”. 
"WARNI»K:I*.  MBJCONSTOP  I  MB.OK  I  MB.TASKMODAL); 
bradc; 


//otherwiw.  praoas  tbe  nquat 
//set  all  itnictuR  meiBben  to  zero. 

iuanaeU,Apd,  0.  stzeoflpPfUNTmX})); 

di.cbSize  ■  si2ieod[DOCINFO); 
di.lp6zDocNaiiie-''VLL‘‘; 
di.lpszOutpiit  ~  NULL; 

//initialize  die  necessary  FKINTDLG  stmcture  members. 

pdlStructSize  -  sizeofCPRINTDLG); 
pdliwndOwiier  -  hWnd; 

pdFlags  -  ro_RETURMX:|PD_HroEPRIhnT(»TLElPD_NOSELECTION; 

pd.nFiomFage  ■■  1; 

pdnToPage  » 1; 

pd.nMinPage~  1; 

pdnMaxPage  >  1; 

if(PrintDlg(Apd)l-0)( 

StaitDoc(pd.liDC.A<ii); 

ft)i(}-0;  j<qpd.nGipies;  j++){ 

StaitPage(pd.liDQ; 
paint_dataJbox(pd.hDC  ); 
paint .^grafAs^hDQ; 

EndPageOaLhDC);  > 

EndDoc(pd.hDC); 

DeleteDC(pd.hDQ; 


break; 


if  (pdliDevMode  1=  NULL) 

GlobalFiee(pd.hDevMode); 
if  (p;LhDevNaines  NULL) 

GloboiFree(pd.liDevNaines); 


caseIDM_GE(»4ETRY:  { 

//initialize  tenq>_dements 

tenq)_eiements  ■■  NUMBER_EI£MENTS; 
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/AUs  CMC  caUt  the  fHawliy  dialof  box 

dlf^Prac  *■  (IMXiPROC^iMceProctiMfamixCCFARPROQDIgPiDc. 
ghlMtaikoc); 

DialocBoxCghloitaace.  "GECWdETRY*.  hWnd.  dlgProc); 
Fied*iocIiiitaiicc((FARraOC)dl<Pfoc); 

//if  the  omaber  of  demeala  input  by  the  user  is  outside  the  allowable. 

//  print  a  waminf.  cause  the  screen  to  be  repainted,  and  terminate  the  case 

il(teaip  ekments>40Btemp  dements<2)  { 
MessagBBeep^JCX}NEXCLM4ATION); 

MessagfBox(hWnd,  "Number  of  Elements  must  be  between  2  and  40*, 
"WARNINGr.MB  ICONSTOP|MB  CMC  |  MB  TASKM(»AL), 
InvalidatdtectChWni  NULL,  TRUE); 
break; 

} 

IM  the  numbo’  ci  dements  input  by  the  user  is  inside  the  aUowd>le, 

// use  the  value  in  lenip_elements 

NUMBER_ELEMENTS  « temp_elemenls; 

/Af  constant  vortex  qiadng  is  used,  call  the  tip  vortex  dialog  box 
if(qncing^flag)  { 

Again_Tip_Vortex; 

dlgPioc  o  (DLGPROC)MakeProcInstance((FARPROC)TIPDlgpToc, 
ghinstance); 

DialogBox(ghInstanoe,  TIPVORTEX*.  hWnd,  dlgProc); 
FreeProdnstanoe((FARPROC)dlgPioc); 

//if  the  tip  vortex  supfdied  by  the  user  is  close  to  the  zero,  print  a 
//  warning  and  reinitiate  the  dialog  box 

il(tip  vortex  inset<0.00000l)( 

MessageBeepO^JCXlNEXCLAMATION); 

MessageBox(hWo^  Tip  Vortex  Inset/Panel  Width  must  be  >  zero”, 
"WARNING!*,  MB_ICX)NSTOP  |  MB_OK  |  MB_TASKMCH>AL); 
goto  Again  Tip  Vortex; 

) 

} 

//cause  the  screen  to  be  repainted  if  the  dialog  box  was  not  canceled 
if(liun_flag) 

InvalidateRect(hWnd,  NULL,  TRUE); 

break; 

} 


case  IDM_C0EFF1CIENTS :  { 

//this  case  calls  the  coeflSciaits  dialog  box 

float  sum  -  0.0;  //used  to  sum  the  coefBcients 

int  q;  //loop  counter 

Again_CoefiBcients: 

dlgProc  (DLGPROC)MakeProcInstance((FARPROC)NextDlgPioc, 
ghinstance); 

DialogBoxCghInstance,  "CX^FHCIENTS",  hWnd,  dlgProc); 
FieeProcInslance((FARPRCX^gPioc); 


»  < 


t  •  < 


•  "  4 


I  « 


4 


i 


« 
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//Ifthe  sttm  it  ckite  to  xao,  print  a  warning  and  icinitiale  the  dialog  box 
iKwnKO.OOOOOOl)  { 

MeitageBox(hWn^  ”At  least  one  coefficient  nuMt  be  non-zero*. 
"WARNINGI*.  MBJC(»1ST0P  |  MB.OK  |  MB.TASKMODAL); 
goto  Again  Coefficients; 

> 


//cause  the  screen  to  be  repainted  if  the  dialog  box  was  not  canceled 
tfl[tnin_flag) 

~  InvalidateRect(hWnd.  NULL,  TRUE); 

brer^ 

> 

case  IDM_EXrr :  { 


//this  case  deletes  the  temporary  file  and  terminates  the  program 


break; 


iffaccessCpIotdaLtmp*,  0)  =>=  0) 
unlink("plotdaLtmp*); 
PDStQuitMessage(0); 

} 


caselDM./^UT:  { 


R 


»  • 


//this  case  calls  the  About  dialog  box 

dlgProc  =  (DLGPROC)MakeProclnstance((FARPROC)ABOUTDlgPioc, 
ghlnstance); 

Diak^Box(ghInstance,  "ABOUT",  hWnd,  dlgProc); 

FreeProcInstance((FARPROC)dlgProc); 

break; 

} 

//the  next  several  cases  respond  to  the  help  section  of  the  main  menu 

case  IDM_HELPGENERAL ; 

{  Messag^x(hWnd,  "The  Hydrofoil  Vortex  Lifting  Line  Program  \ 
iqrplies  a  vortex  lattice  method  to  tte  straight  line  lifting  problem.\n\n\ 

It  calculates  and  diqtlays  both  the  exact  and  numerical  solutions  for  \ 
induced  downwash  velodty,  total  lift,  and  total  induced  drag  for  a  \ 
circulation  distributkm  de^bed  by  up  to  S  Glauert  coefficients.\n\n\ 

It  then  strives  the  'analysia^  problem  by  calculating  and  di^layingV 
the  ruunerical  qpproximiriion  ftw  the  circulation  distribution  based  on  \ 
the  exact  downwash  vdocity  solution.", 

"HELP",  MBJCONINFORMATION  |  MB_OK  ); 

n - n— 

DfCiKy 

> 

caseIDM_HELmUN; 

{  MessageBmfhWnd,  "When  TilefRun*  is  selected  fiom  the  main  \ 
menu,  the  program  uses  the  Current  Variable  Data  to  calculate  and  dispi^  \ 


R 
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wunerical  and  exact  fdulioiii  for  downwish  vdocity  aad  BOOHliineiam 
diciilatioa\B\aV 

The  lift,  dnn.  and  drag/lift  aquared  cocfBcientr  are  aljo  calculated  \ 
and  a  UMe  of  the  enor  ia  the  calculatioiis  is  dia|dagwd.\ii\o\ 

This  sehction  also  causes  aa  aadi  (ext  file,  ’outputcbf,  to  be  written  \ 
to  the  diiectoty  where  file  prapam  is  residenL*, 

"HELP*.  MB  ICONINF(»MATION  |  MB_OK  ). 
break; 


caaelDM.HElJPHRINT: 

{  MesaafdoxChWiid.  "When  TileiPriaf  is  selected  fiom  the  nuunX 
menu,  the  program  invokes  standard  Windows  Print  and  Print  Setup  Diak^  \ 
boxes  to  allow  the  user  to  prim  the  data  that  appean  on  the  screen.*, 

"HELP",  MB  ICONINFCMMATION  |  MB_CBC  ); 
break; 


caseIDM_HELPEXlT: 

{  MessageBox(hWnd,  "When  TilejExit'  is  selected  from  the  main  \ 
menu,  the  program  is  terminated  ", 

"HELP",  MBJCONINFORMATION  |  MB_OK  ); 
break; 


caiae  IDM_HELreLEMENTS : 

{  MessageBoxC^nd.  "When  'Options|Geometiy'  is  selected  fiom  the  \ 
main  menu,  the  user  may  select  a  Number  of  Elements  to  use.\n\n\ 

The  Number  of  Elements,  M,  must  be  between  2  and  40,  ioclustve.  For  M  \ 
elements  there  will  be  M-t-l  fiee  vortices.\n\n\ 

The  definilt  value  for  M  is  40.*, 

"HELP".  MBJCONINFORMATION  1  MB_OK  ); 
break; 

> 

case  IDM_HELPV(»TEXSPACING ; 

(  Messag^x(hWnd,  "When  'Options|Geonie(ry'  is  selected  from  the  \ 
main  menu,  the  user  im^  select  eithm  cosine  or  constant  lattice  gracing  \ 
for  the  free  vortioes.\n\n\ 

Cosine  spacing  uses  a  transformation  of  the  spanwise  coordinate,  \ 
y  >  •is/2^oos(y~).  It  is  the  defoult  gracing  ami  also  in  general  produces  \ 
mme  accurate  iesults.\n\n\ 

Constam  spacing  results  in  singularities  at  the  tips  and  theiefrne  \ 
requires  the  use  of  a  non-zero  tip  vortex  inset  Ihe  user  is  automatically  \ 
pronqited  fin  a  value  fiir  the  ratio  of  tip  vortex  inset  to  panel  width  if  \ 
the  constam  spacing  option  is  selected.*, 

"HELP",  MBJCONINFCWMATION  |  MB_OK  ); 
break; 

} 

case  IDM_HELPCONTROLFTSPACING : 

{  MessagcBoxC^nd,  "When  X)p(ions|Geome(ty'  is  selected  from  the  \ 
main  memr,  the  user  rm^  select  either  cosine  or  midpoint  spacing  for  the  \ 
for  the  comrol  points.\n\nMidpoint  spacing  interpok^  between  the  \ 
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vottkoi  and  Cotiiie  qMdng  um  a  tiuifiMinatka  of  the  ^puiwiae  \ 
roontiiwUf,  y  » ■(«/2)*cei0>~).  Coaiae  ipactag  ia  the  de&uh  ^Mciiig  and  \ 
Ao  in  feaefal  piodiioea  owre  aocuiate  lenlta.*. 

•HELP",  MBja^nNPORMATlON  |  MB.OC  ); 
btcdk; 

> 


caw  IDM.HELFTIPVCXITEXINSET : 

(  MewagefloxC^nd,  "When  Constant  control  point  spacing  is  selected  \ 
in  tte  Geometiy  Dialog  Box,  the  user  is  automatically  promoted  for  a  value  \ 
for  the  tatio  of  tip  voftex  inset  to  panel  width.\n\n\ 

A  positive,  non>zero  value  is  tequiied.  The  defoult  value  is  0.25.", 

"HELP".  MB JCCmiNF(»MATI(»4 1  MB_(MC  ); 
break; 

> 


caw  IDM_HELPCC£FFICIENTS : 

{  MestageBoxf^nd,  "When  'Optioos|CoefiBcients'  is  selected  from  \ 
the  main  menu,  the  user  may  select  values  for  the  first  5  Glaueit  \ 
coefficients  to  describe  the  spanwiw  circulation  distribution.\n\n\ 

At  least  one  of  the  coefficients  must  be  non-zero.  The  defiuilt  values  are  \ 
0.0  fi)r  all  except  al,  for  which  1.00  is  the  default  value.*, 

•HELP",  MBJCONINFORMATION  |  MB_OK ); 
break; 

> 


} 

} 

The  function  prototype  for  the  WMConunand_Handler  function  is  shown  below. 
The  return  type,  void,  indicates  that  no  value  is  returned  by  the  function.  The  first  two 
parameters  passed  to  the  WMConunand_Handler  function  are  the  handle  of  the  main 
window  and  an  integer  variable,  id,  that  describes  the  particular  message  being  handled. 
The  integer  is  used  as  the  argument  for  the  switch  that  refers  the  message  to  a  number  of 
different  cases  ror  processing.  The  information  passed  in  the  other  two  parameters  is  not 
used  in  this  program. 

vmd  WMC(Mnmaiid_Handler(HWND  hWnd,  int  id,  HWND  hwndCtl,  UINT  codeNotify) 


Before  the  switch  is  employed,  a  32  bit  pointer  to  a  dialog  procedure 
(DLGPROC),  dlgProc,  is  declared.  It  is  used  in  the  three  switch  cases  that  call  dialog 
box  procedures. 
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The  first  case  in  the  switch  is  the  IDM_RUN  case.  The  purpose  of  the  IDM_RUN 
case  is  to  cause  the  current  input  data  to  be  processed  by  the  functions  that  perform  the 
hydrodynamic  calculations  and  to  cause  the  results  to  be  written  to  the  screen. 

IDM_RUN  is  an  unsigned  int^er  value  that  corresponds  to  the  File|Run  selection  on  the 
VLL  main  menu.  The  main  menu  is  defined  in  a  Windows'll  resource  file,  pU.rc.  The 
definitions  of  identifiers  such  as  IDM_RUN  are  contained  in  a  header  file,  pU.h.  Both  of 
these  files  are  listed  in  Appendix  A.6. 


caselDM.RUN;  { 

RECT  temp_rect;  //temporary  rectangle  structure 

//  for  specifying  portion  of 
//  screen  to  redraw 

//if  the  user  selects  *Run*,  run  the  vortex  program 
vortex(w_nm); 

//set  the  run  flag  to  1  stoce  vortex  has  been  run 
iun_flag  =  1; 

//cause  rqrpropriate  sections  of  the  screen  to  be  repainted 

temp_tecttop  =  (intXleft_rect.top*height/4gO.O); 
temp_tectbottom  »  (intXI^_rect.bottom*height/480.0); 
temp^recLleft  « (intXl^_rectleft*width/640.0); 
temp_tcct.right  =  (intXleft_tectright*width/640.0); 

Inv^dateRectfhWnd,  fttemp_tect,  TRUE); 

temp^recLtop  (intXnght_recttop*hei^t/480.0); 
temp_recLboaom  (intXright_recLbott(»n*height/480.0); 
temp_tecLleft  (intXright_tecLleft*width/640.0); 
temp_recLright  =  (intXright_tectright*width/640.0); 

Inv^dateRectfhWnd,  &temp_tect,  TRUE); 

break; 

} 


The  IDM_RUN  case  declares  a  rectangle  structure  for  use  in  specifying  the  sections  of  the 
screen  to  be  repainted.  It  then  processes  the  input  data  by  calling  the  vortex  function. 

The  vortex  fimcdon  is  basically  a  translation  of  the  FORTRAN  VLL  code  into  C.  It  is 
included  in  ^qiendix  A.6. 

The  case  then  sets  the  run  flag,  indicating  that  the  current  set  of  input  data  has 
been  processed.  The  rectangle  structure,  temp_rect,  is  then  set  to  values  corresponding  to 
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rectangles  surrounding  first  the  screen  graphical  output  and  then  the  prediction  error  table. 
The  InvalideRect  fiincdon  receives  the  handle  of  the  window  to  be  repainted,  the  address 
of  a  rectangle  indicating  the  portion  of  the  screen  to  be  redrawn,  and  a  boolean  value  that 
indicates  if  the  background  is  to  be  erased  during  repainting.  This  causes  a  WM_PAINT 
message  to  be  sent  to  the  MainWndProc  which  causes  the  screen  to  be  redrawn  with  the 


data  calculated  during  the  tun. 


The  next  case  handled  in  the  switch  is  the  IDM  PRINT  case.  This  case  uses  a 


Windows'^  common  dialog  box  to  handle  print  requests  made  using  the  main  menu.  The 


IDM  PRINT  case  is  shown  below. 


caseIDM_PRINT;( 


//this  case  calls  the  print  dialog  box 


PRINTDLGpd; 
DOCINFOdi, 
int  j; 


//print  dialog  structure 
//document  information  structure 
//page  counter 


//if  a  print  request  is  made  using  the  main  menu  and  vortex  has  not  been  run, 

//  print  a  warning  and  dei^  the  request 
if(!run  flag) 

( 

MessageBeep(MBJC0NEXCLAMAT10N); 

MessageBox(hWnd,  "Must  tun  fuogram  prior  to  printing.”, 
"WARNING!”,  MBJCONSTOP 1  MB_<MC  |  MB_T/^KMODAL); 
break; 

} 


//otherwise,  process  the  request 
//set  all  structure  members  to  zero. 


memset(Apd,  0,  sizedlPRlNTDLG)); 


di.cbSize  »  sizeaf(DOCINFO); 
di.lpszDocName  -  ”VLL”; 
di.lp6zOutput  ~  NULL; 


/initialize  the  necessary  PRINTDLG  structure  mendwrs. 

pdlStructSize  ~  sizeof(PRINTDLG); 
pd.hwndOwner  »  hWn^ 

pdFlaff  -  PD_RETURNDqPD_HIDEPRINTrOFILEpD_NOSELECTION; 
pdoFromPage  >  1; 
pd.nT<d*age  ■  1; 
pd.nMiiiPage  - 1; 


»  I 
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pdnMaxPlce  *  1; 
if(PriiilDlg(Apd)l-0){ 

StaitDoG(pd.hDC.Adi); 


fi)r(i-0:  j<^iiCof)ies;  j++){ 


StutFase(pd.liDQ; 
paiot_dataJbox(pd.liDC  ); 
paint _grapiis(pd.liOC); 
EndPage(pd.liDQ;  > 

EndDoc(pd.hDQ; 

DdeleDC(pd.liDC); 

} 

if  (pdhDevMode  N  NULL) 

GIobalFree(pd.hDevMo(k); 
if  (pdliDevNaines  NULL) 

Glob8lFfee(pd.hDevNames); 

break; 

> 


Three  local  variables  are  declared  in  the  IDM_PRINT  case.  The  first  is  print 
dialog  structure,  pd.  The  print  dialog  structure  is  defined  as  follows; 


typedefatracttagPD {  /*pd*/ 


DWCXtO 

IStnictSize; 

HWND 

hwiidOwner, 

HGLCSAL 

hDevMode; 

HOXSAL 

ld>evNama; 

HOC 

hDC; 

DW(»D 

Flag^ 

UINT 

nFmnPage; 

UINT 

nToRm 

UINT 

nMinPuge; 

iron- 

nMaxPige; 

UINT 

nCoptea; 

HINSTANCE 

hlnsiaiioe; 

LPARAM 

lOutDaU; 

UINT 

(CALLBACK*  ^lAiPrintHookXHWND.  UINT,  WPARAM,  LPARAM); 

UIOT 

(CALLBACK*  lpfiiSetu]«Iook)(HWND,  UINT,  WPARAM,  LPARAM); 

LPCSnt 

IpPrinlTeinplaleNanw; 

LFCSnt 

IpSetupTenqilaieNanie; 

HOjCSAL 

hPrimTeaq^le; 

HCHXSAL 

hSetupTanplate; 

IFRINTDLG; 
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The  print  dialog  structure  is  used  to  initialize  the  conunon  Print  dialog  box.  Afto-  the  OK 
button  <m  the  dialog  box  is  sdected,  information  r^arding  user  selections  is  returned  in 
the  structure. 

The  second  local  variable  is  a  documoit  information  structure,  di.  The  documoit 
information  structure  is  declared  as  follows: 

typedef  itnict  (  /*  di  */ 
int  chSize; 

LFCSTR  IpazDocName; 

LPCSTR  IpszOutpiit; 

}DOCINFO, 

The  document  information  structure  is  used  to  pass  file  name  information  to  the  StartDoc 
fimction.  The  cbSizeparanteter  is  the  size  ofthe  structure  itself  in  bytes.  The 
IpszDocName  is  a  pointer  to  a  nuU-terminated  string  specifying  the  document  name,  in  this 
case  "VLL”.  The  IpszOutput  parameter  points  to  a  nuU-termiiwted  string  used  to  specify  a 
file  to  which  the  output  is  redirected.  Using  the  NULL  value  causes  the  output  to  go  to 
the  printer.  The  "print  to  file"  capability  is  not  implemented  in  VLL.  The  third  local 
variable  is  an  integer  used  as  a  counter  for  produdng  multiple  copies  of  the  output. 

The  next  block  of  code  in  the  case  checks  the  run  flag.  If  the  flag  is  not  set,  which 
indicates  that  the  current  set  of  input  data  has  not  been  run,  the  user  receives  an  audible 
and  printed  warning  and  the  switch  is  terminated  by  the  break  statement.  The  warning  is 
implemented  using  two  functions.  The  first  is  the  MessageBeep  function,  vriiich  recdves 
an  unsigned  int^er  ^>edfying  a  particular  sound  and  then  causes  the  sound  to  be  pitted. 
The  MessageBox  fimction  receives  the  handle  to  the  parent  window,  a  pointer  to  a  null- 
terminated  string  that  is  printed  as  the  warning,  a  pointer  to  a  null-terminated  string  that  is 
printed  as  the  title  ofthe  box,  and  an  unsigned  int^er  indicating  the  style  ofthe  box.  The 
style  can  coi»st  of  any  nunfoer  of  compatible  styles  confoined  by  C  logical  "or”  operators. 
In  this  case  the  function  uses  three  styles: 


I 


I 
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I 


MBJCONSTOP 

hmjym 

MB  TASKMODAL 


a  stop  an>e«n  in  the  box 

the  box  contuns  <me  pu^  button,  labeled  OK 

die  user  must  napoad  to  the  box  before  condnuing  woric  in 


the  parent  window 

Rgure  A-1  shows  the  message  diqiili^ed  by  this  code. 


if(lnin  flag) 

{ 

» InwiyBnrpCMB JCWEXCLAMATION); 
McmgrnoxQiWii^  *Mmt  nin  program  prior  to  printing.*. 
■WARNINCr.MB  IOONSTOP|MB  (XC|MB  TASKMWAL); 
bleak; 

> 


Hwerotell  Voiltx  UWm  Uit 


Bte  tteSaaa  _ 

ouwaHr  vMtiaBLE  nwa 
Mbabar  at  ElanaatS!  40 


Voorcae  Spaelasi  Oosiaa 
Coat  St  Seaeiae:  Ooalaa 


CoaCtielaat  at: 
Ceaffielaat  aS: 
CaaCrieiaat  aS: 
OoaCrietaat  a4! 
Coafrielant  aS: 


•K.'  it.  -H-. 

hMivn  pfagiaapilatia  printinQ. 

I 


RgureA-1.  V^ows*^  VLL  with  Error  Warning  IXsplayed 


After  it  has  been  detenmned  that  the  current  data  set  has  been  run,  the  print  dialog  and 
docuinent  informatiiMi  structures  are  initialized.  The  memsetfiinction  sets  all  of  the  items 
in  die  print  dialog  structure,  pd,  to  zero.  The  sizeoffoncdon  receives  an  expression  or 


113 


type  md  returns  the  size  in  bytes.  The  next  duree  statements  initialize  the  document 

information  structure  as  descrfoed  above. 

niciBaet(jlpd.  0,  tizeod[PIUNTDIjG)); 

di.GbSize  ■■  tizeof(DOCINFO); 
dLhKiDocMsine  -  'VLL'; 
di.lpszOulput «  NULL; 

//ioHiaiize  the  neoesmy  FRINTIXjG  nrocdife  moaben. 

pdlStmctSize  *  dzeoltPRINTIXX!); 
pdfawadOwner  *  hWnd; 

pdFlap  "  ro_RETURNDC|PD_HIDEIWNTlXmEtPD_N(>SELECTION; 

pdaPrae^ife  >  1; 

pdaToPapB  *  1; 

pdoMinPage^  1; 

pdnMsxPage  « 1; 

The  last  seven  statements  initialize  the  required  parameters  in  the  print  dialog  structure. 
The  pd.Flags  parameter  specifies  the  way  the  common  print  dialog  box  is  initialized.  Any 
number  of  compatible  flags  may  be  used.  In  this  case,  the  following  are  used; 
PD_RETURNDC  causes  the  PrintDlg  fimction  to  return  a  handle  to  an 

appropriate  device  context  in  the  pd.hDC  field 
PD_HIDEPRINTTOFILE  hides  and  disables  die  Print  to  File  check  box  in  the  common 

print  dialog  box 

PD_NOSELECnON  disables  the  Selection  radio  button 
The  other  sbc  statemaits  are  self-explanatory. 

The  program  is  then  ready  to  caD  the  PrintDlg  fimction.  The  PrintDlg  function 
receives  the  address  of  a  print  dialog  structure  and  returns  a  nonzero  value  if  the  fimction 
successfiiOy  configures  the  system  printer  and  zero  otherwise.  In  VLL,  if  the  PrintDlg 
fimction  is  successfid,  the  StartDoc  fimction  is  used  to  start  a  print  job  unng  the  printer 
device  coidext  and  the  address  of  the  document  information  structure. 
if^riiUDIgCApd)  1-0)  ( 

StaitDoG(pd.iiDC,ftdi); 

fiM0-O;j<pd.iiCopier.>H-){ 
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Staf«itB(pd.hDC): 
|MiM_dMa_b0K(pdhDC  ); 
piiMlgn|ia(pd.ldX:): 
EadPlfeOMLIiDQ;  ) 

EndDocCpiLiiDQ; 

DeieldX:(pd.hDC); 

> 

if  (pdhDeiMode  I-  NULL) 

GkMFneOidliDevMod^ 
if  (pdliDevNaiiies  I-  NULL) 

(aotwIFree(pd.liDevNaiiies); 

bleak; 

> 


The  IDM_PRINT  case  then  uses  a  for  loop  to  print  the  number  of  copies  returned  in  the 
print  £aIog  structure.  In  C,  a  for  statement  conrists  of  three  expressions  enclosed  in  a  set 
of  parentheses,  followed  by  a  statement  to  be  executed.  The  first  expression,  in  this  case 
j^,  is  executed  before  the  first  iteration.  The  statement,  in  this  case  four  statements 
enclosed  in  braces,  is  executed  until  the  second  expression  becomes  false.  The  third 
expression  is  executed  after  eadi  iteration  and  is  usually  used  to  increment  a  counter. 
Note  that  in  C,  increments  j  by  the  integer  value  1. 

The  StartPage  and  EndPage  functions  recdve  a  handle  to  the  printer  device 
cmitext  and  nuuk  the  start  and  end  of  each  page.  The  VLL  program  uses  the 
(nintjdatajbox  and  print jgraphs  functions  to  draw  the  text  and  graphical  data  to  ftie 
printer  device  context.  The  print_dataJbox  and  |Nint  jgraphs  fimctions  are  described  in 
Appendix  A.S.3  and  included  in  ^rpendbc  A.6. 

After  the  pages  are  drawn,  the  document  is  ended  using  the  EndDoc  function  and 
the  printer  device  context  is  deleted.  The  global  mennory  objects,  pd.hDevMode  and 
pd.MDevNaines,  are  dien  fifeed  and  the  case  is  terminated. 


The  third  case  is  the  IDMjGEOMETRY  case.  This  case  calls  the  Geometry 
dialog  hoK  fiinctkm  fisr  the  purpose  receiving  user  input  r^ardiirg  the  pandization  of 

the  hftiiig  line  and  the  spacing  of  the  control  points  and  the  vortices. 

The  first  thii^  done  by  the  case  is  to  initialize  the  value  of  a  temporary  storage 
location,  temp_eienients,  with  the  current  value  of  NUMBER_ELEMENTS,  the  number 
of  dements  into  riduch  the  lifting  fine  is  discretized.  The  next  step  is  to  rrudce  an  inftznce 
ofthe  Geometry  dialog  box  procedure.  This  essentially  places  the  function  at  a  qiedfic 
location  in  memory,  and  allows  the  function  access  to  the  data  in  the  application.  The 
procedure  instance  is  rtuule  with  the  MakeProcInstance  function,  vdiich  recdves  the 
address  of  a  function  and  the  handle  to  the  application  and  returns  the  address  of  the 
function.  The  next  stq>  is  to  call  the  DialogBox  function.  The  DialogBox  function 
recdves  the  handle  of  the  application  instance,  the  address  of  the  dialog  box  template 
name,  the  handle  of  the  owner  window,  and  the  address  of  the  dialog  procedure  and 
creates  a  dialog  box.  The  Geometry  dialog  box  was  is  ^^own  in  Figure  2-4.  Control  is 
not  returned  to  the  application  until  the  dialog  box  is  terminated.  Once  the  dialog  box  is 
terminated,  the  FreeProcInstance  function  is  called  to  free  the  dialog  box  procedure. 

case  IDM_GECXtifETRY :  { 

/initialize  teo4»_elenients 

tempjeienieais  -  NUMBER_ELEMENTS; 

//this  case  calls  the  geometry  dialog  box 

dlgProc  >  (DL(3TOQMakePi<ocInstance((PARFROC)DlgProc, 
ghlnstanoe);  _ 

Pialotftox(ghfnstancie,  ”(XOMETRY”,  hWnd,  dIgPioc); 
FfetfiocInslaiioe((PARPROC)dlgProc); 

The  case  now  checks  the  value  input  by  the  user,  now  located  in  temp  dements,  to  make 
sure  it  is  whlun  the  limits  imposed  by  the  program.  If  the  value  is  outside  the  range  from 
two  to  40  inclusive,  a  warning  is  printed  and  the  screen  is  redrawn.  Note  that  the  value 
NULL  is  passed  instead  of  the  address  of  a  rectangle  structure  in  the  call  to 
InvalidateRect.  This  causes  the  entire  window  to  be  redrawn. 
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//if  dM  aute  of  deaeiMs  ia|wt  by  the  uaer  it  oiMiMte  tlw  altowiUe. 

// print  a  wafaiag,  canae  the  tcieen  to  be  Rfwiaied.  and  tenninate  the  case 


t^icflip  dcimiiMs^^upciBp  dcmcflis^j  \ 

^ifiiaii^^nrrplrfnjmTrrn  ft~rffm^n 

MeHat(Bao((hWa^  "Number  of  Elements  nnitt  be  between  2  and  40*. 
"WARNINGt'.MB  ICX»<STOP|MB  OK|MB  TASKMODAL); 
InvalidaldteGKhWi4  NULL.  TRUE); 
bienk; 

> 


If  the  number  of  eleinents  input  by  the  user  with  the  dialog  box  is  within  the  allowdile 

range,  then  the  case  uses  the  value. 

//if  the  number  of  elements  input  by  the  user  is  inside  the  allowable, 

//use  the  value  in  jempjelcments 

NUMBER_ELEMENTS  ■*  lenip_elemeots; 


The  case  then  dtecks  the  type  of  vortex  spacing  qiecified  by  the  user.  If  constant  spacing 
is  employed,  the  Tip  Vortex  dialog  box  procedure  is  called.  This  sequence  is  completely 
analogous  with  the  sequence  for  the  Geometry  dialog  box,  with  the  exception  of  the  labd, 
AgainJTip^Vortex.  This  labd  is  used  to  cause  the  Tip  Vortex  dialog  box  procedure  to  be 
called  again  if  the  user  input  is  not  acceptable. 


//if  constant  vortex  spacing  is  used,  call  the  tip  vortex  dialog  box 
iRspncing^flag)  { 

Again  Tip  Vortex: 

dIgPiw  -  ^LCPROC)MrittPiacInstance((FARPR(X:)TIPDIgProc. 
ghinstanoe); 

DialogBoxCghInslance.  "ilPVCXtlEX".  hWnd,  dlgProc); 
Ffed¥Kdnstanoe((FAlU>R(X:)dlgPioc); 

/^  the  tip  vortex  supplied  by  the  user  is  dose  to  the  zero,  print  a 
// warning  and  leinitiale  dm  dialog  box 

ifl[tip  vortex  inaet<0.000001){ 
MetsageBeep(MB_IC0NEXCLAMAT10bD, 
birnagrBox(hWt>d,  "Up  Vortex  Inset/Pand  Width  must  be  >  zero", 
"WARNINGI’.  MB_IC(»4STCX*  |  MB_CdC  |  MB_TASKM(X>AL); 
goto  Again  Tip  Vortex; 

> 

> 

//cause  the  screen  to  be  rqninted  if  the  dialog  box  was  not  canceled 
ifl[liun_flag) 


»  • 


•7 
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lMalid«Aect(hWiid.  NULL,  TOUE). 


? 


After  the  dialog  box  procedure  returns  and  the  procedure  instance  is  freed,  the  tip 
vortex  inset  is  checked.  Ifthe  value  is  less  than  a  very  small  positive  number,  a  warning 
message  is  printed  and  the  Tip  Vortex  diak^  box  ixocedure  is  called  again.  The  screen  is 
then  rqMinted  ifthe  run  flag  was  cleared  in  the  Gemnetry  dialog  procedure.  This 
effectively  the  screen,  with  the  exception  of  the  current  variable  data,  to  be  cleared 

indicating  that  the  current  data  has  not  been  run. 

The  next  case  is  the  IDM_COEFFICIENTS  case.  This  case  calls  the  CoefiBcients 
dialog  (xocedure  and  inspects  the  input  in  a  manner  amilar  to  the  previous  case.  The 
IDM_COEFFICIENTS  case  declares  two  varudites.  Hie  float  variable,  sum,  is  initialized 
to  0.0.  It  is  used  to  sum  the  absolute  values  of  the  CHau^  coefficients  input  by  the  user, 
in  order  to  ensure  that  the  at  least  one  of  the  coefficients  is  non-zero.  The  integer,  q,  is 
used  as  a  loop  counter  for  this  purpose. 


i  • 


case  IDM_CXJEFF1CIENTS :  { 

/Ahis  case  caUs  the  coeffidents  dialog  box 
float  sum  <-0.0; 
int  q; 


//used  to  sum  the  coefficients 
//loop  counter 


Again_Coefficients; 

dIgProc  -  (DLGPROC)Makd*rocInstancc((FARPROC)NcxtDlgProc. 
ghinstanoe); 

DiaiogBox(ghInstanoe,  "CC«FnCIENTS”.  hWnd,  dlgProc); 
FietfrocInataiioe((FARPROC)dlgPioc); 

/Aum  up  the  absolute  values  of  the  glauert  coefficients  uqmt  by  the  user 
for(q-0;q<S;q++) 

sum  4-  fidM(coefficients(q]); 

/flf  the  sum  is  dose  to  200.  print  a  warning  and  reinitune  the  dialog  box 
il(saiiK0.0000001)  { 

MrisagtBox(hWn^  ”At  least  one  coeffident  must  be  non-zero”, 
"WARNINGI”.  MBJCONSTCX*  |  MB.OK  |  MB_TASKM(X)AL); 
goto  Again_Coefficientr, 


die  screen  to  be  repainted  if  the  dialog  box  was  not  canceled 
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iflCIran  flag) 

~  IralidMdlectOiWBii.  NULL.  TRUE); 

bforit; 

} 

The  CoefiBdents  dtak^  |Mt>ce(faire  is  provided  with  t  labd  and  called  amilaily  to 
the  Up  Vortex  dialog  procedure.  After  the  dialog  procedure  returns,  a  for  loop  is  used  to 
sum  the  absolute  values  of  the  co^ldents.  The  ”-h>”  operator  in  the  C  programming 
lai^uage  cttises  the  value  of  the  expressioo  fiallowing  the  q[>erator  to  be  added  to  the 
value  of  the  variable  preceding  the  operator  and  the  result  to  be  stored  in  the  variable 
preceding  the  (^>erator.  The  and  ”/=”  operators  function  similarly.  If  the  sum 

of  the  absolute  values  of  the  coeffidents  indicates  the  case  where  all  of  the  coefficients  are 
zero,  a  warning  is  printed  and  the  dialog  procedure  is  called  again.  As  in  the  case  of  the 
Geometry  dialog  box,  if  the  run  flag  was  cleared  in  the  Coefficients  dialog  procedure,  the 
screen  is  repainted. 

The  IDMJEXTT  case  handles  request  to  terminate  the  program  made  by  the  main 
menu  Fii4Exit  sdection.  It  uses  essentially  the  same  code  described  in  Appendix  A.2  in 
the  WM_DESTROY  case  of  the  MainWndProc  function. 

caseIDM_EXlT:  { 

//this  case  ddeles  the  (emporaiy  file  and  tenninates  the  program 

if(aooeaCpiotdaLtnq>*,  0) »  0) 
nalinkCpIoidat  tmp*); 

PostQoiAiesngefO); 

break; 

) 

The  IDM_ABOUT  case  calls  the  About  ^og  box  procedure.  This  dialog 
(ffocedure  tfiffisrs  firom  those  described  previously  in  that  it  is  not  used  to  recdve  user 
input  data.  Rgure  A-2  shows  the  VLL  About  dialog  box. 

caaeII»f_ABOUT:{ 
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//thii  CMC  tbe  About  boK 

dIsPfoc  -  (raX3>IUX:)Kfbkd¥odaMaiioe((FARI«^^ 
(hlMtaaoe); 

DiilogBo«(^!iiitanrB>  'ABCMJT”,  hWnd.  digproc); 

Fi«tfncIiislaBoe((FAItPROC)dltProc); 

bfoak; 

> 
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Figure  A>2.  Windows'^  VLL  with  About  Dialog  Box  Displayed 


The  next  nine  cases  provide  the  on-line  Help  feature  included  with  VLL.  The  nine 
cases  are  a  series  of  MessageBox  function  calls  that  write  descriptions  of  the  op^tion  of 
the  nuun  moiu  and  the  theory  behind  the  vortex  lattice  method  employed.  The 
IDM_HELPGENERAL  case  is  shown  bdow  as  an  example. 


case  nndLHELPGENERAL : 

{  MtssagirftexChWBd. 'The  Hydrirfoil  Vortex  Lifting  Line  Program  \ 
qiplies  a  vortex  lattke  medwd  to  the  straight  line  lifting  pfobIein.\n\n\ 

It  calculates  and  displays  both  the  exact  and  numerical  solutions  for  \ 
induced  downwash  vdodty,  total  lift,  and  total  induced  drag  Iot  a  \ 
ciiGuiation  distribution  described  by  up  to  3  Glsuert  ooefBdeats.\n\n\ 

It  then  solves  the 'analysis^  proUem  by  calculating  and  disputing  \ 
the  numerical  iq)ptoxiniation  fin  the  circulation  distribution  based  on  \ 
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A.4  VLL  Dialog  functioiis. 

Dialog  boxes  are  a  convoiient  means  for  allowing  the  application  user  to  provide 
input  to  the  program.  The  use  of  a  single  dialog  box  requires  that  two  functions  be  added 
to  the  fiinctions  described  above.  The  first  is  a  callback  function,  umilar  to  the 
MainWndProc.  In  the  case  of  the  Geometry  dialog  box  in  VLL,  this  fiinction  is  declared 
as  follows: 

BOCX.  CALLBACK  jexport  DlgProcfHWND  hDlg,  UINT  message,  WPARAM  wParam, 

LPARAM  IParam); 


The  purpose  of  the  function  is  to  iiutialize  the  data  displayed  in  the  dialog  box  when  it  is 
created,  and  to  refer  messages  received  by  the  dialog  box  to  the  second  function. 

The  second  function  is  similar  to  the  WMCommand_Handler  fiinction,  and  for  the 
VLL  Geometry  dialog  box  is  declared  as  follows: 

void  WMDIgCommand_HaiidIer(HWND  hDIg,  int  id,  HWND  hwndCtl,  UINT  codeNbtify); 

The  purpose  of  this  function  is  to  handle  messages  received  by  the  dialog  box,  specifically 
messages  fi-om  the  "OK"  or  "CANCEL"  buttons.  The  functions  used  in  VLL  for  the 
Geometry  dialog  box  will  be  described  here.  The  functions  used  for  the  Coefficients,  Tip 
Vortex  Inset,  and  About  dialog  boxes  are  extremely  similar  and  should  be  self-explanatory 
when  the  two  functions  described  here  are  understood. 

The  callback  function  is  listed  below: 


B(X)L  CALLBACK  export  DigProc(HWND  hDIg,  UINT  message,  WPARAM  wParam, 

LPARAM  IPanm) 

{ 

char  input!  10]  -  //character  string  for  writing  ouqwt 

switch(niessage) 

{ 


case  WM.INITDIALOG :  { 
//initialize  minmicai  and  state  dialog  controls 


# 


ifl[^aciiig_llas) 

CheddUdioBultoa  (hDIg.  IDM  CXKINE.  IDM  CONSTANT, 
n>M_CONSTAND; 


OieckRadioBuiloii  (hDIg,  HM^  COSINE,  IDM  CONSTANT, 
IDM.COSIN^; 

if(ooiitni^_fl«g) 

ChedcRadioBiidoa  (hDlg,IDM  COSINECONTR(X< , 

IDM.MIDPI^,  IDM.MIDPOINT); 
else 

CbedcRadioButton  (hDIftlDM  COSINECONTllOL , 

IDM_MIDPdlNT,  IDM_COSINECONTR(X,), 

itoa(NUMBER_ELEMENTS,iiiput,IO); 

SetDIgIteiiiTex^lg,IDM_NUMOFELEMENTS,iiiput); 

return  TRUE; 

> 

case  WM_C(»(fMAND :  { 

ictum  (BO(X)HANDLE_WM_CCHk4MAND(l>Dlg,  wPaiam,  IParam, 
WMDIgCoinniand_Handler); 

} 

} 

return  FALSE; 

}  , 

A  cursory  inspection  of  the  callback  function  reveals  that  the  function  consists  essoitially 
of  a  switch  that  handles  two  cases.  Prior  to  the  switch  a  character  array,  input,  is  declared 
for  the  purpose  of  writing  text  data  to  the  dialog  controls.  There  are  ten  types  of  ctialog 
controls,  only  two  of  which  are  dealt  with  by  the  DlgProc  function. 

A  dialog  box  may  have  up  to  2SS  contitrls,  selected  from  the  below  listed  types: 
Pushbuttons  the  type  used  for  "OK"  and  "CANCEL"  buttons 
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Radio  Buttons 


used  to  select  an  option  from  a  group  of  mutually  exdusive  options 
Chedc  Boxes  used  to  select  or  deselect  options  whidi  can  be  toggled  on  and  off 

Static  Text  Fields  used  to  provide  labels  or  instructions 
Group  Boxes  allows  groupii^  of  a  set  of  (rther  controls 

Lisfrioxes  used  for  selecting  an  option,  such  as  a  file  name  fiom  a  list 

Edit  Boxes  allow  the  user  to  input  text 

Scroll  Bars  used  to  ii^t  a  linear  value 

Icons  used  to  provide  visual  input 

Condnnation  Boxes  a  combinafion  of  an  edit  box  and  a  list  box 
The  VLL  program  nukes  use  of  the  pushbutton,  radio  button,  group  box,  static  text  field, 
and  edit  box  types. 

Controls  that  are  used  to  display  variable  data  and  to  receive  user  input  are 
assigned  identifiers  in  order  to  make  the  program  code  more  easily  undo^ood.  The 
appearance  and  operation  of  the  dialog  box  is  defined  in  a  resource  file  that  is  part  of  the 
application.  The  four  dialog  resource  templates  and  the  main  menu  used  in  VLL  are 
defined  in  the  vil.rc  file.  The  block  of  code  used  to  define  the  VLL  Geometry  dialog  box 
is  ^wn  below.  The  entire  vil.rc  file  is  contained  in  Appendix  A.6. 

GE(»«ETRY  DIALOG  11. 35.  175.  137 

STYLE  DS  M(X>ALFRAME  |  WS.POPUP  |  WS  CAPTION 

CAPTION  "Geomeny" 

BEGIN  "<* 

COKTRCX.  -.  IDM  NUMC»ELEMENTS.  "EDIT.  ES_LEFT  |  WS  CHILD  |  WS  VISIBLE  | 
WS  BORDER  I  WS  TABSTW.  66. 87. 34. 15 

CC»mt(X.  "Cosiiie*.  IDM  COSINE,  "BUTTON”.  BS  AUTORADIOBimON  |  WS  CHILD  | 
WS  VISmUBIWS  GROUPI  WS  fABST(»>.  10.20,38, 13 

OCmTRCX.  "Conslaiit".  IDM  CONSTANT.  "BUTTON".  BS  AUTORADIOBUTTON  | 

WS  CHILD  I  WS  VISIBLE  |  WS  TABSTCX>,  10, 39, 40. 14 

CONTR^  "Conne",  IDM  COSINECONTROL,  "BUTTON".  BS  AUTXMlADIOBUTrON  | 
WS  CHILD  I  WS  VISIK£  |  WS  ^OUP  |  WS  TABST(»>.  95. 20, 38.  if 

CONTR^  "MkM>0iiit".  IDM  MIDPOD4T.  "BUITON".  BS  AUTORADICffiUTTON  | 

WS  CHILD  I  WS  VISIBLE  |  WS  TABSTCX*.  95. 39. 45. 14 

PUSHBUTT(»I  "CMC",  I^  CXCQECM,  31, 109, 36, 15,  WS  CHILD  |  WS  VISIBLE  | 

WS  TABSTCX* 

PUSHBUTTON  "CANCEL",  IDM  CANCELGE(»i  100.  109, 36.  15,  WS  CHILD  | 

WS  VISimElWS  TABSTCXP 


CCMIKCX.  "Lirttke  SfMciiig*.  -1.  "STATIC,  SS.LEFT  1  WS.Offli)  1  WS.VISIBLE.  10. 7. 61. 
9 

LTCXT  "Nunter  of  dements  40  Max".  -1. 32. 63. 67.  17 

COKTRCK.  "Control  Poid  Wincing".  -1.  "STATIC.  SS  LEFT  |  WS  CHILD  |  WS.VISIBLE. 
95.7,71.9 

CC^miOL  "".  -1.  "static".  SS  BLACKFRAME  |  WS  CHILD  |  WS  VISIBLE.  3. 4. 61. 31 

OAfTRCX. "".  -1.  "static".  SS  BLACKFRAME  |  WS  CHILD  |  WS  VISIBLE,  91. 4. 77.  51 

CONTRfX^ "".  -1.  "static".  SS  BLACKFRAME  |  WS.CHILD  |  WS_VISIBLE.  44, 60. 83. 45 

END 

The  first  line  of  code  defines  the  name,  size,  and  screen  position  of  the  dialog 
resource.  The  second  line  desoibes  the  style  of  the  dialog  box  and  third  line  defines  the 
cqjtion  displayed  on  the  title  bar. 

After  the  BEGIN  statement,  the  indmdual  controls  are  defined.  The  edit  box  that 
displays  and  allows  the  user  to  alter  the  number  of  elements  used  in  the  program,  for 
example,  is  the  first  control  described.  It  is  defined  as  a  dialog  control  of  the  edit  box 
type.  The  pair  of  double  quotes  indicates  that  there  is  no  automatic  initialization  of  the 
value  of  the  box.  IDM_NUMOFELEMENTS  is  an  identifier  used  to  refer  to  the  control 
in  order  to  make  the  source  code  more  readable.  The  flags  that  are  joined  together  with 
the  logical  "or"  operators  indicate  how  the  control  is  to  be  drawn  and  processed  by  the 
Windows'^  environment.  The  last  four  numbers  describe  the  location  of  the  control  in  the 
dialog  box. 

Dialog  boxes  may  be  constructed  u^g  a  standard  text  editor,  or  using  a  gr^hical 
development  environment  such  as  the  BORLAND®  Resource  Workshop™.  Figure  A-3 
shows  the  VLL  Geometry  dialog  box  in  the  BORLAND®  Resource  Workshop™ 
graphical  development  envirorunent.  The  point  and  click  capability  of  a  graphical 
environment  makes  the  design  and  testing  of  dialog  boxes  fast  and  easy  compared  to  the 
alt«native  of  defining  them  umg  a  text  editor  and  recompiling  the  application  for  each 
test. 
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Figure  A-3.  VLL  Geometry  Dialog  Box  in  BORLAND®  Resource  Workshop™ 
The  WM_INITDIALOG  case  in  this  function  evaluates  the  spacing  flag  and  the 
control  point  flag  and  checks  the  appropriate  radio  button  using  the  CheckRadioButton 
function.  The  CheckRadioButton  function  receives  the  handle  of  the  dialog  box,  the 
identifier  of  the  first  and  last  button  in  the  group,  and  the  identifier  of  the  button  that  is  to 
be  checked.  It  checks  the  button  indicated  and  removes  the  check  firom  the  other  buttons 
in  the  group.  The  CheckRadioButton  function  does  not  return  a  value. 

The  WM  INITDIALOG  case  also  initializes  the  edit  control  that  indicates  the 


number  of  elements  into  which  the  lifting  line  is  discretized.  This  is  done  in  two  steps. 
First  the  current  value  of  NUMBER_ELEMENTS  is  written  as  a  character  string  into  the 
input  variable  array  using  the  itoa  function.  The  itoa  function  receives  an  integer  value, 
the  address  of  a  character  array,  and  the  base  to  be  used  in  converting  the  integer,  and 
writes  the  integer  value  into  the  character  string.  In  the  second  step,  the  SetDlgltemText 


fimcdon  is  used  to  write  the  chancter  string  in  the  input  army  into  the  edit  control 
indicated  by  IDM_NUh^FELEMENTS  and  contained  in  the  dialog  box  in^cated  by 
hD^.  The  case  then  returns  the  boolean  value  TRUE  because  the  message  was  handled 
the  fimctioiL 

The  WMjCOMMAND  case  refers  messages  to  the  WMDIgCommandJHandler 
using  the  HANDL£_WM_COMMAND  macro  and  returns  the  value  returned  by  the 
macro,  imficating  if  the  message  was  handled.  Ifthe  message  recdved  by  the  callbadc 
command  does  not  correspond  to  either  case  in  the  switch,  then  the  boolean  value  FALSE 
is  returned. 

The  second  function  used  to  handle  the  VLL  Geometry  dialog  box,  the 
WMCommand_Handler  fiinction,  is  shown  bdow: 

void  WMDlgComiiiaiid  Haiidler(HWND  hDlg.  int  id,  HWND  hwndCtl.  UINT  oodeNotify) 

{ 

char  input!  10] « **;  //chancter  string  for  receiving 

input 

switch(id) 

{ 

caseIDM_(XCGEC»t;  { 

HWND  hCtrl;  //handle  to  a  dialog  control 

DWORD  result;  //result  of  an  interrogation  of 

//  a  diak%  button 

//get  the  sttte  of  the  radio  buttons  and  set  the  gracing  and  control  point  flags  accordingly 

hCtil  »GetDigIteiii(hDlg.IDM_CONSTANT); 
result  ~  SendMessage(hCtrl,  BM_GETCHEC1C,  0,  OL); 

i 

if  (result)  spacing_llag  - 1; 

dae  spocing_flag-0; 

hCtri  -  GetDIgIteiiKhDIg.  IDM.KODPOIND; 
result  *  SendMessi^!e(hCtrl,  BhT  GETCHECK,  0.  OL); 

if  (result)  controlpt_flag  ■  1; 

else  oontrolpt_flag  -  0; 


i 
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9 


//•■t  dK  SMBtar  of  ekaeals  ka|Mt  aad  ilore  it  ia  a  teiBponiy  locatioii 

Ged>igilmTBXtOil>lg.  ira<.NUMOFELEMENTS.  input,  10); 
temp  ■» 

/Adear  tke  nifrflaf  to  indicate  dwl  dw  (Her  ii^Mt  date  hnt  chanped 
ran_llag*‘0; 

//drop  tlurou^  to  the  praoening  te  tbe  CANCEL  COM 

> 

caKlIMMf.CANCEUSCM:  { 

//end  the  dialog 

EndDialog(hDlg.  0); 
break; 

} 

> 

> 

The  WMDIgCoinfnaiKl_Handler  function,  like  the  DIgProc  function,  is  essentially  a 
switch  that  handles  two  cases.  Also  like  the  DIgProc  function,  prior  to  the  switch  a 
character  array,  input,  is  declared.  In  this  procedure  the  array  is  used  for  the  purpose  of 
retrieving  information  from  the  dialog  controls. 

The  IDM_OK(XOM  case  reqjonds  to  the  message  sent  when  the  user  sdects  the 
"OK”  button  in  the  dialog  box.  A  handle  to  a  ^ndow,  hCtrl  and  a  DWORD,  result  are 
dedared  as  local  variables  in  this  case.  The  case  first  uses  the  GetDlgltem  function  to  get 
a  handle  first  to  the  Constant  Vortex  spacing  radio  button.  It  then  uses  the  SendMessage 
fiinction  to  check  the  state  of  that  button. 

The  GetDlgltem  function  receives  a  handle  to  a  dialog  box  and  the  idoitifier  of  a 
ccmtrol  in  dutt  box  and  returns  a  handle  to  the  control.  The  SendMessage  function 
receives  a  handle  to  a  dialog  box  control,  a  message  identifier,  and  two  additional  message 
dependent  hems.  In  this  case  the  message  that  is  sent  is  a  BM_GETCHECK  message,  the 


two  additional  hems  are  not  used.  The  return  values  for  the  fiinction  when  the  message  is 
BM_G£TCHECK  are  the  integer  1  if  the  button  is  dtecked  and  0  if  it  is  not  checked. 

The  case  sets  the  value  of  the  spacing  fli^  and  then  repeats  the  process  for  the 
control  point  spadng  flag.  The  IDMjOKGEOM  case  then  uses  the  GetDlgltemText 
fiinction  to  copy  the  value  in  the  Number  of  Elemoits  edit  box  control  into  the  input 
character  wmy.  The  atm  fiinction  converts  the  asdi  string  pointed  to  by  its  argument  to 
an  intqier  value  and  returns  that  value. 

The  next  statement  clears  the  run  flag  on  the  assumption  that  some  or  all  of  the 
data  handled  by  the  Geometry  has  changed.  Since  there  is  no  break  statement  in  the 
IDM_OKGEOM  case,  program  execution  continues  into  the  IDM_CANCELGEOM  case 
and  the  dialog  box  is  terminated  by  the  EndDialog  fiinction.  If  the  user  selects  the 
"CANCEL*  button  on  the  dialog  box,  the  IDMjCANCELGEOM  case  is  executed  and  the 
dialog  box  is  terminated  without  changing  eitho'  of  the  spacing  flags,  the  number  of 
elements,  or  the  run  flag. 

Functions  for  initializing  and  retrieving  the  data  from  the  Coeffidents,  Tip  Vortex 
Inset,  and  About  dialog  boxes  are  completely  analagous  to  the  fiinctions  described  above. 
The  fiinctions  are  part  of  the  VLL  program  in  the  >dl.c  file,  and  listings  can  be  found  in 
Appendix  A.6. 


APPENDKA^ 


Tic  VLL  Outpat  functions. 


The  VLL  0«tp«t  ftuctioaf. 

The  VIX  pfx>grain  uses  four  separate  &nctk>ns  to  provide  output.  Two|^ovide 
output  to  the  mcmitor  and  two  provide  output  to  the  system  printer.  Each  pair  consists  of 
a  function  that  draws  the  current  variable  data  and  a  function  that  draws  the  gn4>hs  and 
table.  The  functions  are  described  bdow. 


i 


» 


A^.l  The  VIX  paint jdntn_boi  Aincfion. 

The  VLL  paint_dataJbox  function  receives  a  handle  to  the  monitor  device  context 
and  draws  the  current  variable  data  to  the  screen.  A  device  context  can  be  thought  of  as  a 
structure  that  contains  information  about  the  output  device  and  how  text,  lines,  or  regions 
are  drawn  on  the  output  device.  Output  to  a  particular  device  is  accompUriied  by  a  series 
of  GDI  fonction  calls.  The  best  way  to  gain  an  understanding  of  the  GDI  and  device 
contexts  is  to  closely  inspect  the  functions  that  perform  the  output  for  VLL.  The 
paintjdatajbox  function  will  be  the  first  to  be  contidered,  and  is  shown  below. 


/••*««*««•«•«•*«*«**«***«««*«•****«**«••«««•*••••••••••«**•**•***«••« 

*  the  paiot  data_boxluiictioo  draws  cunent  variable  data  to  the  passed  device  context  * 

••«««**«•««,*««««««*•««*«««*«««**««*«««**««••«**«•••*•*****••«**«****/ 

void  paint  data  box(HDC  PaintDQ 

*dedaR  variables  that  are  defined  in  the  vll.c  file  and  that  will  be  used  in  this  function  * 
extern  int  coiittolpt_flag,  qMKing;_flag.  NUMBER_ELEMENTS; 

extern  float  tip_vortex_inaet,  ooeffideatsQ,  width,  height; 

/I******************************************************************** 

*  Variable  dedarMions  * 

««««««***««*«««*««•««•***«**««•«««•«*«•*«««**««***••***•***•**••«••**/ 


diar 

baffer(120]; 

//buffer  for  character  ou^wt 

int 

i. 

//loop  counter 

length; 

//length  of  character  output 

HFOKT 

hPottt, 

//handle  to  the  definilt  font 

hOMFoot; 

//handle  to  the  original  font 

» 


i 


»  • 


» 
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//ftt  a  laaiie  10  the  devke  deflHiit  fiat 

bFoat «  GetSlockFoal(l%VlCE_lKPAULT_P(X4T): 

1 

\ 

H 

//■etect  the  device  de&ult  font 

1 

bOldFoiit «  SekctFoot^iiiitDC.  hFoBt); 

i 

//endow  the  contat  variable  data  box  in  a  pair  of  rectangles 

i 

i 

Rectan(le(PaintlX^(intX10*widtbAM0.0MidX0.0«hei^ 

(intX250.O^ridth/MO.O),CintX25.O«lieiglil/4SO.0)); 

'J 

Ractaagle(PainlDC(intX10*wkltb/640.0MidX25.0*bei^ 

(intX2S0.0^ridtli/640.0X(intX230.0*lieigN/4«>.0)); 

1 

1 

//Ubdthebox 

t 

length  -  sprinti(bufier.  "CURRENT  VARIABLE  DATA*); 

TextOin(IhuniIXXint)O9.0Sridtli/640.0) . 

(intXS.0*lieight/480.0). 
buffo,  length); 

-1 

» 

•ii 

//write  the  variable  data 

> 

length  "■  sprintf(buffer,  *Nuniber  of  Elements:  %d*,NUMBER_ELEMENTS); 

i 

i  • 

TextOut(PaintDC.  (intXI00*widlh/640.0), 

(iittX30.0«height/480.0), 
buffo,  length); 

J 

1 

(; 

//write  the  tip  vortex  inset  if  applicable 

j 

ifl[spadng;_fla^  { 

*  » 

length  >>  sprintffoiffer.  Tip  vortex  inset/  ”); 

TextOutCPaintDC,  (intXI0.0*width/640.0X 
(intX90.0«|ieigin/480.0). 
buffo,  length); 

j 

length  >  spriinf(buffo,  ”  pand  width:  %9.4r, 
tip_voftex_inse(); 

t 

I 

i 

TextOutCPaintDC.  (intX10.0*widtli/640.0). 

(intXl  10.0«lieig)it/480.0). 
buffo,  length); 

f 

¥■ 

length  >  sprintf(baffo,  "Vortex  Spacing;  Constant*); 

> 

dw 

length  >  q|nintfi[buffo,  "Vortex  Spacing:  Cosine*); 

\ 

} 

1 

i 

1 
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i 

i 

i 

i 

1 

1 

■  *1 

. •  • 

1 

TextOuKPiiMDC.  0«X10.0*«idtli«40.0X 
CnlXM.0*Mg|M/4a0.0X 


lM(kr.lc^X 

//write  te  ooaliol  iMut  ipadag  adectm 
ifltcoalra^  flag) 

le^-iprinlftlMfte.XQatPtSpadag:  lA^oiar); 
dae 

length  •ipriatifMfer.  "Coot  Ft  Spadag:  Coaiae*); 

TextOaXPaintDC.  (ia(X10.0«widrii/M0.0X 
(iMX70.0*heighi/4g0.0X 
buSer.  kagthX 

//write  out  the  Glaaert  ooeffidenta 
lbr(iH);i<5;i++){ 

lenglh~sprintf(bufler,*CoefBcieota%d:  %^5.2r.H-l, 
ooeffidents(i|); 

TextOut(PaintIKXintXIO.O*width^.O). 

(iiitX(floatX130+i*20)*height/4«).0). 

buffer.len^); 

> 

//select  the  original  foot  and  delete  the  one  oeated  for  this  fonctk» 

SekctFoat(PaintOC.hOidFoat); 

DeleleObiect(hFont); 

} 

After  the  function  is  declared,  a  declaration  of  the  global  variables  that  will  be 
used  in  the  paint_dataJbox  function  is  made.  The  extern  keyword  tdls  the  compiler  that 
the  (mghial  declarations  of  the  variables  that  follow  it  are  made  in  a  separate  source  code 
file. 

Rve  new  variables  are  declared  locally  to  the  paint_dataJbox  function.  The 
character  am^,  buffer,  is  used  to  store  the  text  strings  that  will  be  written  to  the  screen. 
The  integer  i  is  a  lot^  counter  and  the  int^er  l«igth  is  used  to  indicate  the  length  of  the 
string  written  into  bufifer.  The  last  two  variables  declared  are  HFONT  variables.  An 


» 


ft 


ft 


ft 


ft 


ft 


ft 


ft 
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HFONT  it  t  huKUe  to  t  font  that  n  used  to  dnw  the  text  output.  In  this  case  two  are 
defoied,  a  handle  to  the  device  defiuih  font,  and  a  handle  to  the  font  originally  specified 
upon  creation  of  the  devke  context. 

The  paint_data_box  fiinction  uses  the  GetStocicFont  fiincdon  to  get  a  handle  to  the 
moutor  device  defiuih  font,  the  font  prefiared  by  the  monhor.  The  GetStockFont 
fiinction  receives  an  unsigned  ifheger  and  returns  a  handle  to  the  ^Mcified  font.  The 
device  defiuih  font  is  then  sdected  into  the  device  context  uring  the  SdectFont  fiinction. 
The  SdectFont  fiinction  recdves  the  handle  to  the  device  context  and  the  handle  of  a  font, 
sdects  the  font  into  the  qiedfied  device  context  and  returns  a  handle  to  the  font  that  was 
rqilaced.  The  handle  to  the  font  originally  in  the  device  context  is  retained  in  hOldFont  so 
that  h  may  be  sdected  back  into  the  device  context  at  the  end  of  the  fiinction  and  hFont 
may  be  ddeted.  This  is  done  to  fi’ee  the  monory  allocated  to  the  font  referred  to  by 
hFont. 

Next  the  rectangles  that  enclose  the  current  variable  data  are  drawn  using  the 
Rectangle  fimcfion. 

nectaiigle(PaintDC.(iiitXl-0*widtli/640.0),(intX0.0*height/480.0). 

(intX2S0.0*widtli/640.0),(intX2S.0«height/4t0.0)); 

The  Rectangle  fiinction  recdves  the  handle  to  the  device  context  and  the  Cartesian 
coordinates  of  the  upper  left  and  lower  right  comers  of  the  rectangle  to  be  drawn.  The 
coordinate  system  used  on  the  screen  is  determined  by  the  nuqiping  mode  of  the  device 
context.  The  definih  mapping  mode  is  MMJTEXT.  This  means  there  is  a  one  to  one 
correspondence  between  logicd  units  and  pixds,  and  that  the  upper  left  comer  of  the 
client  window  is  (0,0)  with  the  positive  x  axis  to  the  right  and  the  positive  y  axis  down  the 
screen. 

In  mrder  to  provide  for  device  independent  mitput  to  monitors  of  different 
horizontal  and  verticd  resolution,  the  logicd  coordinates  are  scded  by  a  foctor  of 
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width/640.0  or  hei^l^480.0  as  appropriate.  The  result  is  than  cast  as  an  integer.  The 

GDI  recognizes  int^ral  coordinates  since  the  finest  resolution  possible  is  one  pixel. 

After  the  rectangles  are  drawn,  the  data  box  is  labeled. 

kagth  -  sprindOwlEsr.  "CURRENT  VARIABLE  DATA”); 

TexlOia(lkiinDC.(iinX39.0^ndtli^  . 

(iiitXS.0*heicbt/480.0). 
bufo.  length); 


The  sfMrintf  function  writes  formatted  character  output  to  a  ctiaracter  array  and  returns  the 
number  of  bytes  writtoi,  minus  the  null  terminating  character.  The  TextOut  fiinction  is 
the  most  basic  of  the  tact  drawing  fiinctions.  It  receives  the  handle  to  the  device  context 
where  the  text  is  to  be  drawn,  an  integral  client  area  coordinate  where  the  text  is  to  be 
drawn,  a  pointer  to  the  string  to  be  drawn,  and  the  iength  of  the  string  to  be  drawn,  in 
bytes. 

The  sprintf  fiinction  is  used  in  further,  slightly  more  complicated  statements,  to 
write  output  strings  that  include  variable  data  to  the  character  array.  In  the  statement 
shown  here  the  current  integer  value  of  NUMBER_ELEMENTS  is  included  in  the  output 
string.  This  is  accomplished  by  using  the  %d  format  specifier  to  indicate  where  in  the 
string  the  integer  value  will  be  printed,  and  then  including  the  variable  name  in  the  list  of 
output  variables  in  the  the  sprinf  statement. 

length  ~  spriinf(bu£kr,  "Number  of  Elements:  ^",NUMBER_ELEMENTS); 

The  paint_dataJbox  function  continues  to  test  the  vortex  and  control  point  spacing 
flags  and  provide  appropriate  output.  A  for  loop  is  used  to  print  each  of  the  Glauert 
coefiBcients.  The  format  specifier,  %+S.4f,  is  used  in  the  statement  that  writes  Glauert 
coefBcients  to  the  buffer  array.  This  indicates  that  a  floating  point  number  will  be  written, 
showing  four  dec^nud  places,  and  including  the  sign  evoi  if  it  is  positive. 

iength'*sprintfCbufkr,”CoefiBcienta%d:  %i-5.2r.i+l. 


» 


» 


i 


ft 


» 


» 
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codBcients(i|); 


TexlOut(PiiuOC(mtX10-0Svidlh/640.0), 

(iiitX(flo«X13(H-i*20)*hdclit/480.0), 


The  y  coordinate  in  the  TextOut  function  in  this  case  is  calculated  u^g  the  index  of  the 
coefficient. 

The  last  two  statements  in  this  function  use  the  SelectFont  function  to  sdect  the 
original  font  back  into  the  device  context  and  the  DeleteObject  function  to  free  the 
memory  associated  with  the  font  used  to  draw  the  text  output.  Since  it  is  not  permissible 
to  ddete  a  font,  or  any  other  object  currently  selected  into  the  device  context,  the  ori^nal 
font  must  first  be  restored.  The  memory  is  freed  since  if  it  were  not,  the  memory  would 
be  effectively  consumed  and  would  not  be  released  until  termination  of  the  current 
Windows™  session. 


A.S.2  The  VLL  paintjgraphs  function. 

The  second  function  used  by  VLL  to  draw  output  to  the  screen  is  the  paint jgraphs 
function.  It  is  shown  below. 


/*•*••««**««*«««««*«««*«««*««**«*«*«****«*«**««*•**«*****•*«**•***«** 

*  the  paintjgraphs  function  draws  the  graphs  and  percent  error  data  * 

*  on  die  passed  device  context  * 

void  point  jgraphs(HDC  POintDC) 

{ 

*  declare  variables  that  are  defined  in  the  vU.c  file  and  that  will  be  used  in  this  function  * 

****m**00*^**0***m******m*****************************************0*0/ 

ectem  floot  width,  height; 

*  Variable  dedaiations  * 

000000000000000000000000000000000000000000000000000000000000000000000, 


HFONT 


hFont, 

hSmallFont, 


//handle  to  the  de&ult  font 
//handle  to  a  small  font 


liFoiitVeft. 

//hndk  to  a  vcftically 
// oriented  fisnt 

hOhfftoot; 

//kaadle  fi>r  de&ult  font 

LOGFONT 

IFont; 

//logical  font  stnictuic  for 

//creating  foe  fonta 

WEN 

kPM(2I. 

//jpene  for  dnnring  foe  data  pts 

hThidcPeii, 

//im  for  drawing  axes 

liCNdPen; 

//handle  for  definih  pea 

HBRUSH 

liBniil)(2], 

//bnidies  for  drawing  foe  data 

//points 

hWhildnith. 

//white  brush 

hOMBnish; 

//handle  for  old  brush 

dhar 

buffiEr(120]: 

//buffer  for  character  output 

int 

i. 

//loop  counter 

lengdi. 

//length  of  character  output 

NUM_ELEMENTS; 

//number  of  elements 

//  (discretization) 

float 

m. 

//power  of  ten  used  in  finding 
//  max  value  iff  w  or  circ 

pzw. 

//percent  error  in  lift,  drag. 

pxw. 

//  and  lift/drag*drag  given  w 

prw, 

//and given  circ 

pzg. 

PXg. 

prg. 

iiiax_w=0. 

//maximum  and  minimum  values 

iiun_w*^. 

//  for  w  and  circ  for  scaling  plots 

iiiax_ciic~0, 

ininjdic=0; 


float 

•  w_cx. 

//pointers  to  arr^  of  floats 

•  w_num, 

♦circ, 

•y_coiit, 

♦gam; 

//  for  storing  plot  data 

FILE 

•plot; 

//pointer  to  a  file  structure 

PCMNT 

point. 

//fxnnt  structure  used  fiir 

// plotting  dNapmnts 

origin. 

//origin  of  foe  current  piM 

origI21-{{4«0,100}, 

//origins  of  the  velocity  and 

<460,320}}; 

//  and  circulation  plots 

//allocMe  memoiy  Ibr  the  vedon 

w  ex  -(fl<wt*)iiMUoc((MAX  NUMBER  ELEMENTS+l)*si2eof(fkMt)); 
w  mun  -(flad*)malloc((MAX  NUMBER  ELEMENTS+l)*sizeof(fi<»t)): 
die  -  (fled  *)iittlloc((MAX  NUMBER  ELEMENrS+l)«si2ecf(fl(Mt)); 
y  cod  -  (llod  *)  flnlloc((MAX  NUMB^  ELEMENTS+l)*sizeor  (flod)); 
gun  -(flod*)niaUoc((MAX_NUMBERJELEMENTS+l)*sizeor(flod)); 

//cieete  red  ud  Mue  pens  and  brushes  to  dnw  dH  graphs 

hBnish(0]  -  CreateSoUdBiush  (RGB(2SS.0,0)); 
hPta(0]  -  CieatePtn  (PS_S(XJD.  1.  RGB(2S5.0.0)); 

hBnish(ll  -  CieateSolidBnish  (RGB(0.0.2S5)); 
hPen[l]  >  CreatdPen  (PS_S(XJD.  1.  RGB(0.0.25S)); 

hThkhPen  »  CieatePen(PS_SOLID.  3.  RGB(0.0.0)); 
hWhit^nish  =  GetSto(^OIyect(WHrrE_BRU»l); 

//use  the  device  de&ult  font  to  fill  a  logical  font  stnictuie 

Ged3bject(GetStodcFont(DEVICE_DEFAULT_FONT).sizeof(LOGFONT).AlFont); 

//get  a  handle  to  the  device  de&ult  font 

hFont  =  CreateFontIndiiect(&lFont); 

//alter  the  font  size  and  create  a  small  font  for  the  axis  labels 

IFonLUHeight  =>  10; 

hSmallFont  =  CieateFontIndiiect(&lFont); 

//alter  the  font  size  and  orientation  and  create  a  vertically  oriented  font 

lFont.UEscapement  =  900; 

IFontlfffeight « 14; 

hFontVert  =  CreateFontlndirect(&lFont); 

//  set  the  badeground  mode  to  transparent  so  the  text  doesn't  overwrite  data 

SetBlcMode(PaintDC.  TRANSPARENT); 

//open  and  read  the  temporary  data  file 

plot  =  fopen(*plotdaLtmp'',  "r'O; 

//read  the  number  of  elements 

&anf(plot,''%d^ANUM_ELEMENTS); 

//read  in  the  spanwise  position  of  the  control  points,  the  exact  drculation 
//  and  dowmw^  velodty,  and  the  numerical  doumvasb  velodly  and  drculation 


fbr  (i-l;ioNUM_ELEMENTS;i++) 

ficadr|iki(."9tf  Kf  9tf  %r.  ^.cooKi],  Agamli],  Aw.exii], 

ftw_Miia{i],  AdrcfiD; 

/Acad  IB  the  perceat  emr  vahMS 

lkaBfl^ilot.'^SfSf%fSf%r.J^>zw.Aps[W.d4»w.A|ng,A|U(gA>ff) 
//doee  the  pkB  file 

fbloeeCpIot); 

//r«lriil«te  tint  mintnmin  amt  nMMriimnH  value*  tor  w  and  ciic 

ft>i(i-l;t<-NUM_ELEMENTS;i++)  { 

iiiax_ciic  -  iiux(gaiii[il.niax(iiiax_ciic,ciic{i])); 
minjcifc  min(gain[il.niiii(ininjdic,ciic[ii)); 

inax_w  « inax(w_ttuin[i],inax(inax_w.w_ex[il)); 
fiiiii_w  » iiiiii(w'_iiiiin(i].imii(inia_w,w_ex(ij)): 

} 

//ensuK  that  inax_ciic  and  max_w  are  equal  to  the  largest  magnitude 
//  drcttlation  and  velocity 

max.drc  » inax(fid»(oeil(niax_circ)).&bs(floor(min_circ))); 
inax_w  *  max(&bs(ceil(inax_w)),iU)s(floor(inin_w))); 

//initialize  m  and  multiply  it  by  10  until  m*10  is  greater  than  max_ciic, 

// then  increase  m  by  fictors  2  until  m  is  greater  than  max_ciic  by  no 

// more  than  a  fiKtor  trf  2 

iii»  0.001; 

while  (m*10.0  <  max_circ)  m  m  *  10.0; 
nbile  (m  <  maxjciic)  m  »  m  *  2.0; 

//set  max_circ  equal  to  m  so  the  plot  will  be  properly  scaled 
maxjciic  m; 

IB"  0.001; 

while  (m*10.0  <  niax_w)  m  »  m  *  10.0; 

while  (m  <  max_w) 


m  *  m  *  2.0; 


I 


the  vahMs  equal  «>  tiH  Mgtfive  of  dK  oax  vahKt 

ada jdic  « -aMxjciic; 


//Dnnv  aad  Ubd  giafihB 

//M  the  origia  Car  titt  dowawaah  plot 

orisia.x  *  arig(dowBmaahl.x; 

orighty  -  orig(dowairaah].y: 

//draw  a  box  te  the  gnph  and  oee  a  box  for  the  axes 

Reciaagle^aiatDC,(iotX(origin.x-190)*width/640.0), 
(iiitX(origin.y>100)*height/480.0). 
(iatX(origin.x+170)*width/640.0), 
(iatX(origia.y+l  10)*heigla/4g0.0)); 

Reciaagie(FBintDC.(intX(origin.x-130)*width/640.0). 

(iolX(origin.y-7S)*height/480.0), 
(iatX(origia.x4-13  l)*wiAli/640.0). 
(intX(origin.y+76)*height/480.0)); 

// select  a  thicfc  pen  aad  draw  the  axes 


hOldPca  «  SeiectPeo(PaintDC,hThidcPen); 


MoveTo(PaintDC,(uitX(<Migin.x>130)*widCh/640.0), 

(iatXorigin.y*height/480.0)); 

LineTo(PaintDC,(uitX(origin.x+130)*width/640.0}, 

(intXorigin.y*height/480.0)); 

MoveTo(PaintDC,(intXorigin.x*width/640.0), 

(intX(origin.y*75)*height/480.0)); 

LineTo(PaintDC,(>otXorigin.x*wkhli/640.0X 

(intX(origin.y+7S)*height/480.0)); 

/^riot  the  aumerical  solution  for  downwash  vdodty 

//adect  the  red  pea  aad  bradi 

SelectPen(PaintDC.hPen(0]); 

hOldBrash  -  SdeGtOI;jecl(PaintDC.hBnish(0)); 

//loop  tfoongh  all  of  the  control  points 

for(i-l;i<-^^M_ELE^IENTS;i■H•)  ( 


« 
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//cliciitaip  tiw  X  Md  y  oooidililn  conwpondimtoctdipoiat 


# 


9 


9 


9 


9 


9 


9 


9 


9 


9 


9 


9 


poim.3l-(ia^X((((yJeoa^ip0.5)*l3O.0yH)ligia.x)*y^ 

|MiaLy-<iirtX((((-^_<M>^>]^B^_w)*790>«ori|^y)*height)/4S0.0); 

//dnw  »  ractaafle  for  the  aumerical  poiats 

Rfldaiitle(IhuiitlX^poiiM.x*3jwuity*3,|MiiiLxf3,poinLy4-3); 

} 

//jpiint  sempte  lectangle  (oumefical  point) 

poinLx  *  12S*width/640.0; 
pointy  -  290*hei(ht/4S0.0; 

Rectangle(PxintDC.poinLx-3.pointy-3.p«ntx+3.pointy+3); 

//sdect  the  blue  pen  and  brush 

SdectPen(PaintDC.hPen[  1 )); 

SelectObiect(PaintOC,hBiush(l]); 

//Plot  the  exact  solution  for  downwash  velocity 

//loop  through  all  (tf  the  control  points 

fof(i*l;i<“NUM_ELEMENrrS;i++)  ( 

//calculate  the  x  and  y  coordinates  cone^nding  to  each  point 

pointx^intX((((y_cont[il/0.3)*130.0)+origin.x)*width)/640.0); 

pointy*(intX((((-w_ex[il/niax_w)*75.0)+origin.y)*hei^t)/480.0); 

//draw  an  ellipse  for  the  exact  points 

Ellipse(PaintDC,poinLx-2,poinLy-2,pouitx-<-2,pointy+2); 

} 

//  print  sanqite  Ellipse  (exact  point) 

poinLx  -  125*width/640.0; 
pointy  -  270*height/4g0.0; 

ElIipse(PaintDC,poinLx-2,pointy-2,poinLx-t-2,pointr*-2); 

//select  the  solid,  thin,  black  pen,  the  white  brudi,  and  the  small  font 
SdectPen(PaintDC,hOldPen); 

SdectOtgect(PaintDC,  hWhiteBrush); 
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9 


9 


9 


9 


9 


i" 


i 


9 


9 


9 


! 


I 

i 

1 

kOtfont  -  SciecffoBl<Piii<IX;>Siwlffo«t): 

9 

//riifH  the  l0it  onlpal  lo  right  a^oiled  aad  ikbd  the  y  axit 
SelTe9itA]ife(Maa>CTA_IU<3fr): 

^  //dnw  the  horixooial  lines  fgr  the  graph 

fce(i-5;i<6;i++)  { 

MoveTo(PsinlDC.(intX(origia.x432)^Mdt^ 

(iiitX(origiii.y*i«15)*height/4gO.O)); 

^  LiaeTo(PsintDC.CmtX(origiiLx^l30)*width^ 

(iiitX(origiii.y*i*  13)*height/4gO.O)); 


//Ubd  eadi  horizontal  line,  the  nuflriter  of  dedmais  dtapfa^ed  depending 
// on  the  magnitude  of  the  maxinnua  value 


if(niax_w  <  10.0)  { 

length  »  aprintfdwffer.  *%4.2r,(niax_w/S.O)  *  i); 

TexlOut(PaintDC.(intX(origin.x-140)^ridth/6^ 
(intX(origin.y*i*  15>3)*)ieight/480.0), 
bufler,  length); 

> 


else  f 


length  -  sprintf(buflfer,  *%4.ir,(niax_w/S.O)  *  i); 


TextOut(PaintDC,(intX(origin.x-140)*widtli/640.0), 
(intX(origin.y*i*  15-3)*beight/W).0), 
bulfo,  length); 


} 


} 

/Aeitofe  the  text  riignment  to  left  a4ittsled  and  label  the  X  axis 
SefrextAlign(FaintDC,TA_LEFT); 
ft)iCi«.3;i<S;t++){ 

MowTo(nuntIX;(intX(origin.x4i*26)^ridt^^ 

(intX((origin.y<-77)*heighl/4g0.0))); 
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LiwTo(Piiiaax;(i«X(orifiiLX>j«26)ni(i^^ 

(iMX((oriflity-75)*beifJ«/4».0))); 

kmth  "  qiriad(lMi(fer.  ”S2.  ir,0.1**X 

TextOui(Paiiiilx:;(iatX(orici& 

0atX(origia.y4>SO)*lieig|it/4SO.O). 
buffo,  kaglli); 

> 

//icpeat  dK  prooen  fo  tbe  dfculatioa  graph 

origiB.x  ~  orig(ciiGul.x; 

origtaLy  ~  orig(ciica].y; 

Rectai«le(PauuDC,(foX(ongiiLx-190)^n^^ 

(iiitX(ongta-y*l^)*l>^Si>f/480.0), 

(intXCorigin.X't-  170)*width/640.0). 
(iiitX(origui.y+l  10)*lieiglit/480.0)); 

Rectaiigle(PuiitDC,(intX(origin.x-130)*width/640.0), 

(iiitX(origiii.y-7S)*height/4bO.O), 

(iiilX(ongia.x+131)*width/640.0), 

(intX(origin.y+76)*heiglit/480.0)); 

SdectPefi(PxiiitDC.hThk&Pen); 

MaveTo(PamtDC,(iraX(origiiLx430)^fndth/640.0), 

(iiitXorigiiLy*height/4S0.0)); 

LiiieTo(PbiiitDC.(intX(origin.x+130)*width/640.0), 

(iiitXorigiii.y*heigbt/480.0)); 

MoveTo(PaiiitI>C,(mtXorigin.x*widdi/640.0), 

(iiitX(ongui-y-7S)*lieight/480.0)); 

LiiieTo(FuiitDC,(iiitX<>rigiiLX*widt]i/640.0), 

(tiitX(arigiiL]rt-75)*height/480.0)); 


Seiecffeii(PaiiitDC.liPeii[0]); 

SdeGtObject(PliiitDC,hBnish[0]); 

fo(i-lU<-NUM_ELEMENTS;rH-)  ( 

poiaL«>(intX((((yjooiiM>]A).S)*  130.0>+origiiLx)*widlhV640.0); 
|wiaty-(uitX((((-9uii[i]teax_ctrc)*75.0>K>rigin.y)*beighty480.0); 

Rcctaii^c(BMiia)C.|wii>tx-3,poiiity-3,poiid.x»3.poiiity+3); 

} 


SdeGtPtiiO*biiiax:^liPen(l]); 


4 


SekctOlyectCPaiaaXXliBni^ 

iBi^l;i<-NUM_ELBt(IEKrS;t++)  { 

pQtaLx-(utX((((y  oa^iIA>.S)«130.0>««rigiiLx)SmU>V640.0); 
poi^rHiatX((((<iicfil/^_cifc)*7S.O>+«rigiiLy)*iidgi«y4m.O^ 

Elli|Me(PaiaaX^|KNiM.x-2jioiiiLy*2.|MiiiLx+2,|»iA 

} 


S<fccdNaiff>iiHDC,hOldFea); 
SekctOl!ject(PdBtDC.  hWhitdniih); 
SelTextAUgn(PxiiitDC.TAJUGHT); 


lbi(l»-5;i<6;i++)  { 


MafveTo(Paiiiil>CXuttX(origiiLx-132)*wkl^^ 
(iiitX(origiii.y>i*  13)*height/480.0)); 

LiiieTo(PliiitDC.(>ntX(origiii.x-t-130)*wi<lth/640.0), 

(iatX(origiiLy>i*15)*hd^t/4S0.0)); 

if(inax_w  <  10.0)  { 

length  ^  sprinttatn^er,  '%4.2r,(inax_ciic/5.0}  *  i); 

TexlOut(PaiiitDC.(>nlX(oiigin-x>l40)*wiclUi/640.0), 
(iittX(ongia.y>i*15-3)*height/480.0), 
buffer,  len^); 


> 


dse( 

length  >■  sprintf(buffer,  ”%4.ir,(niaxjctfc/S.O)  *  i); 

TexlOiit(PaintDC,(iittX(origia.x-140)*widtli/640.0), 
(int)((otigin.y>i*15-3)*heigbt/480.0), 
buffo,  length); 


« 


) 


> 

SelTextAlign(PiintI>C.TA_LEFr); 


i 


Ibi0*-5U'<*'4++)  { 


MoveTo(FnintDC.(intX(<>(^g>ii-x^*26)*width/640.0). 

(intX((origin.)rf77)*height/480.0))); 


« 
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t 


lJiaeTa(hditf)C(teX(oritiiLxH«2<)*ii^^ 

CiitX((orili&y-75}*kdgM/4«>.0))); 


.  ■Hi.ir.o.i**): 


TeclO«l(PiiitfX;CatX(oriii&x-«^*26)*ii^^ 

(ii«X(orifiB.y4M)*liei^4ao.O). 


//Meet  dw  wftkal  fbot  and  Ubd  the  y  met 

SclectFoat(PaintDC.hFoatVcft); 

leaslli  -  sprinlfCbiiaer.  'WAT); 

TexKXrtCPaiirtDC,  (iiitX275.0*wiAh/640.0). 

(iiitX120.0*heigltt/480.0). 
buffo,  leqgih); 

length  -  qmmdbuffo.  ”NON-OIM  CIRC*); 

TextOtfCPaintDC.  (iiitX275.0*widlli/640.0). 

(intX350.0*hetgbt/480.0). 
buffo,  length); 

//select  the  device  defiudt  font  bade  into  the  device  context,  labd  the 
//  X  axes  and  the  sanqrie  dlipse  and  rectangle 

SeiectFoot(PaintDC,hFont); 

length  »  ^tfiCbufifo.  'SPANWISE  POSITION  Y/S*); 

TextOut(PaintDC.  (intK370.0«width/640.0). 

(intXI90.0*height/480.0), 
buffer,  length); 

TextOut(PaintDC,  (intX370.0*width/640.0), 
(intX4I0.0*height/480.0), 
bufifo,  length); 

length  >  sprintf(bufifo,  "Exact:"); 

TextOut(PaintDC,  (intXSS.0*width/640.0), 
(intX260.0*height/480.0). 
buffo,  length); 

length  -  sprintf(buCfo,  "Approx:"); 

TextOut(PaintDC,  (intX55.0*wkhh/640.0), 
(iiit)(280.0*faeight/480.0), 
buffo,  length); 


I 
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//dbtw  the  pcfoeat  enw  box  aad  fill  ia  dtt  vataes 

Ra(eai«|e(PBiaaX;0MXiO^nath«4O.O).(i«tX3OO.O* 

(iBtX230.0^vidth^.0).(ii«X340.0*hei|^4«).0)); 

ReGlai«MPMallX;(i«X10Sridai/640.0).(iatX340.0 

(iiMX230.0«width«40.0).(tntX3<0.0*height/4«0.0)); 

kaglh  »  epriiMXbiifHv,  ‘‘Errar  ia  Ibedicti^^ 

TextOu^PlfUiiax;  (iatX2S.0*width/640.0X 
(iatX305.0*lieig|it/4a0.0X 
buffer.  leagthX 

leagih  -  qmnlftbuffer.  *fer  Fa  Pa  Fx/(Fz)«*2'); 

TextOutCPaintDC.  (intX25.0Stfidth/640.0X 
(iiitX320.0*height/480.0). 
bu£^,  length); 


length  «  sprintfCbuffisr,  "Given  Ganinui(y)*): 


TexiOut(PaintDC.  (intX54.0*width/640.0X 
(intX342.0*height/4g0.0). 
buffo,  length); 


IfoZnngle(PiintIX:;(foX10«uidth/640.0).(foX360.0*height/480.0), 

(fo)(77.()^n(tth/640.0),(intX3bO.O*height/4«).0)); 

Rectangle(PaintDC,(fo)(78.0^indlh/640.0).(foX360.0*height/480.0). 

(intX133.0«wi<lth/640.0).(intX380.0*height/480.0)); 


Rectangle(PainlDC(foX154.0^ndth/640.0).(imX360.0*height/480.0), 

(intX230.0*wi<lth/640.0).(intX380.0*height/4«).0)); 

Rectangle(PaintDC,(intXl  .0*width/640.0),(int)(380.0*height/480.0), 
(int)a30.0*width/640.0).(intX400.0*hdght/4g0.0)); 

Rectangle(PaintIX:.(foXl■0^ndth/640.0).(foX400.0•hetght^ 

(fo)(77.()^ndth/640.0).(intX420.()*heighl/4g0.0)); 

Rectnngle(PnintDC.(fo)(78.0*width/640.0).(foX400.0*height/480.0). 

(foX133.0*wKlth/640.0),(tntX420.0*height/480.0)); 

neGtaiigle(PaintlX^(foX154.0nmith/640.0).(foX4()0.0*height/^ 

(foX230.()«wkhh/640.0).(intX420.0*height/4g0.0)); 


length  «  sprintf(buflfo,  "Given  w*(y)"); 

TextOutCPaintDC,  (int)(70.0*width/640.0), 
(intX382.0*height/4g0.0). 
buffo,  length); 
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TtoaOitCfdmDC,  (iittX2S.0^nddl«40.0X 
0atX4O2.O«lMi^lMaO.O). 


» 


» 


biAr.l0i«liX 

Imtfak  -  spriiMQMfcr.  ■K3.1f%*4paig); 

Te)dOiiKPiyaa)C.  riitfXlQ2.0*wkitli/MO.OX 
(iatX402.0*heitltt/4«).0X 
bolfe.  kagdiX 


length  >  tprmlfdbufibr.  *%3.1fK''4i(g); 

TextOutCPuiitDC.  CiBtX178.0«widtli^.0X 
(iatX402.0*lieiglit/4S0.0X 
buffo,  length); 


length  *  spriitff(buffiBr.  *%3.11%*.pzwX 

TextOutCPaintOC.  (intX25.0«width/640.0), 
(iiit)(362.0«height/480.0). 
buffo,  length); 


length  ~  sprintXbuffer,  *%3.  lf%",pxw); 

TextOut(PaintDC,  (intX102.0«wi<tthM0.0), 
(intX362.0*height/480.0X 
buifo.  length); 


length  «  sprintXbuCfo,  ”%3.1f%*,prw); 

Texl0ut(PaiiitDC,  (intXf780*wi(lth/640.0), 
(iiitX362.0*height/480.0), 
buffo,  length); 


» 


» 


»  • 


//select  the  original  font,  pen,  and  brash 

SdeclOI>ject(PhinlDC,hiC)hiBrash); 
SdecfOljectCPainax;  hOMPen); 
SdectFontfPiuntDC,  hOUFoot); 

//ddele  the  obfecls  cietied  fo  this  fimction 

DdeteObject(hFen(OD; 

DeieleObject(hPen(lD; 

DeleteObject(hTludcPea); 

DdeteOI|iect(hfoiid40D; 

DdeleOI|iect(hBradi(l)); 

DdeteObiectOiWhiidBn^); 


DdeteObjectOiFoiitX 
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nilirtriritjjtrtclirtMVwt): 


//bee  te  aiocnad  iMaov 

bee(wjex  y, 
bBe(w_*eeiX 
beeCdic  ); 
fHtiyjBoaiy 
bee(pai  ); 

> 

As  in  the  paintjdata^box,  a  declaradm  ofthe^obal  variables  that  will  be  used  in 
the  function  is  made  after  the  function  declaration .  Several  new  variables  are  also 
declared  locally  to  the  function.  Instead  of  describing  them  at  this  point,  they  will  be 
explained  along  with  the  main  body  of  the  function. 

This  function  uses  the  malloc  function  at  run  time  to  allocate  memory  for  the  data 
to  be  plotted.  Its  usage  is  illustrated  below.  The  malloc  function  receives  the  number  of 
bytes  of  memory  heap  to  allocate  and  returns  a  pointer  the  allocated  memory.  In  this  case 
the  pointer  is  then  cast  as  a  pointer  to  an  array  of  floats  and  assigned  to  w_ex. 
w_ex  >  (fkwt «)  iiialM(MAX_NUMBER_El£MENTS-«-l)*sizeof  (float)); 

This  is  rqreated  for  all  of  the  dynamically  allocated  variables  in  the  paint _,graphs  function. 

A  pair  of  brushes  and  pens  are  then  created.  The  liBrush  variable  is  an  array  of 
two  brushes,  a  red  brush  and  a  blue  brush.  The  brush  selected  in  a  device  context  controls 
how  shqres  such  as  rectangles  and  ellipses  will  be  drawn.  Spedfically,  the  brush  controls 
how  the  internal  r^km  will  be  drawn.  The  pen  sdected  in  a  device  context  controls  how 
lines  (H*  the  benders  ofshapes  such  as  rectangles  and  ellipses  wiO  be  drawn.  The 
paint ..gnqdis  fimetion  uses  the  CreateSolidBrush  function  to  create  the  red  and  blue 
brushes.  The  funetkm  receives  a  color  reference  returned  by  the  RGB  macro  and  returns  a 
handle  to  the  new  brush.  The  RGB  macro  reedves  an  intensity  between  0  and  2SS  for  the 
red,  green,  and  blue  conqxments  and  returns  a  color  reference  based  on  the  specified 


intensities  and  the  capabilities  of  the  output  device.  A  solid  white  brush  is  also  created, 
but  of  the  CreateSolidBrush  fiinction,  the  GetStockObject  function  is  used.  The 

GDI  has  several  predefined  objects,  including  a  white  brush.  The  GetStockObject 
function  receives  an  int^er  identifier  and  returns  a  handle  to  the  stock  object. 

The  CreatdPen  function  is  used  to  create  the  red  and  blue  pens  and  a  thick  black 
pen.  The  function  receives  a  line  style,  in  this  case  solid,  a  line  thickness  in  pixels,  and  a 
color  refisrence.  It  returns  a  handle  to  the  new  pen. 

The  function  then  creates  fonts  that  will  be  used  to  draw  text  output.  The  first 
step  is  to  fill  a  lo^cal  font  structure,  IFont,  using  the  attributes  of  the  device  default  font. 
This  is  done  by  using  the  GetObject  function.  The  GetObject  function  receives  a  handle  to 
an  object,  the  tize  of  a  bujBTer  to  receive  data  describing  the  object,  and  the  address  of  the 
buffer.  In  this  case  the  handle  is  the  return  value  of  the  GetStockFont  function,  the 
address  of  the  buffer  is  the  address  of  the  logical  font  structure,  and  the  size  of  the  buffer 
is  the  size  of  a  LOGFONT  structure.  The  LOGFONT  structure  is  defined  as  follows: 

typedef  struct  tagLOGPONTf 
int  UHeiglit; 

int  IfWkith; 

int  UEscapement; 

int  UOfientation; 

int  IfWdght; 

BYTE  tfltalic, 

BYTE  IfUnderline; 

BYTE  IfStrikeOut; 

BYTE  IfCharSet; 

BYTE  IfOutPrecision; 

BYTE  IfCUpPtecision; 

BYTE  IfQuality; 

BYTE  UPitchAndFamily; 

BYTE  tfPaceNamelLF  FACESIZE]; 

}  LOGFONT; 


The  address  of  the  logical  font  structure  is  then  passed  to  the  CreateFontIndirect  function 
which  oeates  a  font  with  the  attributes  described  in  the  structure  and  returns  a  handle  to 
the  new  font.  The  attributes  in  the  logical  font  structure  are  then  modified  and  a  small 
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font,  hSmallFont,  and  a  verticaUy  oriented  font,  hFontVert  are  created.  The  IfHei^t 
parameter  of  the  LOGFONT  stnicture  specifies  the  cell  height  of  the  font  in  logical  units. 
The  IfEscaponent  parameter  specifies  the  orientation  of  the  text  in  tenths  of  a  degree 
counterdoclcwise  firom  the  positive  x  axis. 

VLL  now  sets  the  background  mode  for  the  device  context  using  the  SetBkMode 
fiinction.  The  SetBkMode  fimction  can  set  the  background  mode  to  OPAQUE,  which  is 
the  defiuih,  or  TRANSPARENT.  The  OPAQUE  mode  causes  the  screen  area  under  text 
that  is  printed  to  first  be  repainted  with  the  background  color.  The  TRANSPARENT 
mode  causes  the  text  to  be  printed  directly  over  the  pre-existing  background. 

SetBkMode(PaintDC.  TRANSPARENT); 

The  paint_graphs  fiinction  then  reads  the  data  to  be  plotted  from  a  temporary  plot 
file,  plotdat.tmp,  that  was  created  at  run  time  for  the  current  data  set.  The  file  is  opened 
using  the  fopen  fiinction.  The  fopen  fiinction  receives  a  character  constant  file  name  string 
and  a  character  constant  mode,  in  this  case  "r*  for  read  only,  and  returns  a  pointer  to  a 
stream.  In  this  instance  the  value  of  the  pointer  is  assigned  to  plot,  a  pointer  to  a  file 
structure.  A  file  structure  is  defined  as  follows: 


typedef  struct! 
short 
unsigned 
char 

unsigned  char 
short 

unsigned  char 
unsigned 
short 
}FILE; 


level; 

flags; 

fd; 

hold; 

bsize; 

♦buflFer,  *curp; 

istemp; 

token; 


The  paint ,^graphs  fiinction  then  uses  the  fscanf  fiinction  to  read  the  number  of  data  points 
to  be  nlotted,  the  values  of  spanwise  control  point  position,  circulation,  and  downwash 
velocity,  both  exact  and  numerical  values,  and  the  percent  error  values.  The  data  file  is 


« 


€ 


then  closed  using  the  fidose  fimction,  which  receives  a  pointer  to  a  file  stream  and  returns 

0  if  successfiil  and  EOF  if  not  successfiil.  EOF  is  a  constant  that  indicates  that  the  end  of 

a  file  has  been  reached. 

//open  and  read  the  teiqwnfy  data  file 

plot  -  fopenTplotdaLtinp*. 

//read  the  mmtber  of  dementf 

ficanf(plot.'^.ANUM_ELBt«EN^ 

//read  in  the  spnnwise  position  of  the  control  points,  the  exact  circulation 
//  and  downw^  velocity,  and  the  numerical  downwash  velocity  and  circulation 

fi)r  (i*l;i<=*NUM_ELEMENTS;i++) 

£scanf(plot,'^%f  %f  %r,  fty_cont(i],  ftgam(i],  &w_ex[i], 

Aw_num[i],  Acirc|i]); 

//read  in  the  percent  error  values 

£scani(plot,*%f  %f  %f  W  %f',Apzw,ftpxw.Aprw,&pz:g.Apxg.&prg); 

//close  the  plot  file 
^ose  (plot); 

The  paintjgraphs  function  proceeds  by  finding  the  maximur'  and  minimum  values 
of  circulation  and  downwash  velodty  that  will  be  plotted.  This  is  done  by  looping  through 
all  of  the  data  and  uting  nested  max  or  min  statements.  For  illustration  purposes,  the 
max_circ  case  is  described. 

The  max  macro  compares  two  values  of  the  same  type  and  returns  the  larger  of  the 
two  values.  In  the  statement  shown  here,  max_circ  is  compared  with  the  numerical 
drculation  value,  circ[i],  and  the  returned  value  is  compared  with  the  exact  drculation 
value,  gam[i].  The  value  returned  fi-om  this  comparison  is  assigned  to  the  max_circ 
variable.  This  process  is  repeated  ova*  the  range  of  control  points  so  that  the  final  value 
of  max.circ  is  the  largest  circulation  value  that  vnll  be  plotted. 
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//r>lnilKi8  the  minimum  and  maxiinum  valuei  far  w  and  die 

fbf(i-l;i<-NUM_EL£MENTS;H-»^)  { 

max.dfc  *  inax(piii(i].iittx(iiiax_cifc.ciic(i])); 
iniii_dic  -  iBiB(gMii|i].inin(iniB_cifc.cuc|iD); 

vaaxjH  -  aax(w_BuiB[il.in>x(iMx_w.w_exlil)); 
miii.'w  -  niiii(w_Buiii|il.miB(miB_w.y_ex[il)); 

} 

The  values  of  maxjdrc  and  inax_w  are  then  adjusted  to  integral  values  just  greater 
than  or  equal  to  the  larger  of  the  magnitudes  of  max  and  min  values  to  be  plotted.  This  is 
done  using  the  floor  and  ceil  functions,  for  the  purpose  of  provide  an  integral  range  on  the 
ordinates  of  the  plots.  The  floor  function  reUims  the  largest  integer  that  is  not  greater 
than  the  argument  and  the  ceiling  function  returns  the  smallest  integer  not  less  than  the 
argument. 

//ensure  that  max_cifc  and  inax_w  are  equal  to  the  largest  magnihiA* 

//  circulation  and  velocity 

niax_cire  =  niax(fid»(oeil(niax_cifc)),&bs(fIoor(aijn_circ))); 

niax_w  =  niax(fiibs(ceil(niax_w)),fi^floor(nun_w))); 

The  imt  ten  lines  of  executable  code  adjust  the  maximum  and  minimum  values  to 
the  y  axes  of  the  plots  so  that  the  x  aids  is  in  the  middle  of  the  plot  and  the  vertical  extent 
of  the  plotted  data  covers  at  least  half  of  the  vertical  scale  in  dther  the  positive  or  negative 
direction.  This  is  done  to  give  the  plotted  data  a  reasonable  scale  with  respect  to  the  plot 
area. 

//initialize  m  and  multiply  it  by  10  until  m*10  is  greater  than  niax_circ. 

//  then  incieaK  m  by  ficton  of  2  until  m  is  greater  than  niax_circ  Ity  no 
// more  than  a  firetor  of  2 

m- 0.001; 

while  (m*10.0  <  max_circ)  m  «  m  *  10.0; 

while  (m  <  max_ciro)  m  m  *  2.0; 

//set  max_circ  equal  to  m  so  the  plot  will  be  property  scaled 


» 


■HKjclfc  -  m; 

0.001; 

while  (■*10.0  <  nax.w)  ■  «  n  •  10.0; 

while  (n  <  om.w)  m  »  m  *  2.0; 

BMx.w-m; 

/^et  tihe  nia  values  equal  to  the  aetative  of  the  max  values 
asiajciic  ■  -aiax_ciic. 
aiia_w  «  -aiax.w; 
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The  ori^  is  then  set  to  the  ori^  of  the  downwash  velocity  plot  and  the  box 
outlines  of  the  graph  and  the  plot  region  are  drawn  using  tlM  Rectangle  fiinction.  ^ 

//set  the  origin  fitr  the  downwash  plot 

origui.x  »  orig(downwash].x; 

origin.y  =  orig(dowiiwash].y; 

//draw  a  box  for  the  graph  and  use  a  box  for  the  axes  ^ 

Rectangle(PauitDC.(intX(origin.x-190)*wi(hh/640.0), 

(intK(origin.yl00)«height/480.0). 

(ittX(origin.x+170)*width/640.0). 

(uitX(origin.y+110)*height/480.0));  H 

Rectaagle(PaialDC.(uitX(origiax>130)*width/640.0), 

(intX(origin.y-75)*liei^t/480.0), 

(intX(origiiLx+131)*wkhh/640.0). 

(intX(origin.y+76)*liright/480.0)); 

i 

The  X  and  y  axes  are  then  drawn  umg  the  thick  pen.  The  MoveTo  and  UneTo 
fiinctkms  are  used  for  this  purpose.  The  MoveTo  fonction  receives  a  handle  to  the  device 
context  and  a  Caiteaan  screen  coordinate  and  moves  the  current  position  to  the  ^ 

coordinate.  The  UneTo  function  also  recmes  a  handle  to  the  device  context  and  a 
Cartesian  screoi  coordinate.  The  LineTo  function  causes  a  line  to  be  drawn  to  the  device 
context  from  the  current  po^on  to  the  specified  coordinate,  using  the  pen  sdected  in  the  ^ 

device  context. 
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// Miect  a  ttkk  pea  aad  draw  the  axes 

bOWea  -  SdectiPea(PyatDChT1udcPea): 

MawcTo(PaiidlX;(iatX(oricuLX-130)^^ 

(iat)(oiigin.y*lieig|it/4S0.0)): 

LiaeTo(PaialDC,(iatX(ongin.x+130)*widtiiA&40.0), 

(iatXorifin.y*height/4S0.0)X 

MaweTo(PaiaOC,OBtXorisi>>-x*width/640.0X 

(iatX(origin.y>75)*lieislit/4S0.0)); 

LineTo(PaiBtDC,(iittXorigia.x*width/640.0), 

(ifitX(origin.y4^7S)«height/480.0)); 

The  numerical  solution  for  downwash  velocity  is  then  plotted  using  the  red  pen 

and  Imish.  A  for  loop  is  used  to  index  through  each  point  and  calculate  the  associated 

screoi  coordinate  and  draw  a  red  rectangle  centered  at  the  screen  coordinate. 

SelectPea(PuntDC.liPeB(0]); 

liOldBnish  -  SdectOl9ect(I>aiittDC.hBnishIOI); 

//loop  thraagh  idl  of  the  oootrol  points 

lbi(i"l;i<“NUM_ELEMENTS;i++)  { 

/Acalcalale  Che  X  and  y  oooidinates  ooneqxHiding  to  eadi  point 

pointx^intX(((0^_coirtlilA).5)*130.0)+origin.x)*width)/640.0); 

pointy^intX((((-w_nuni(il/inax_w)*75.0)+origin.y)*lidght)/480.0); 

//diaw  a  rectangle  fw  the  numerical  points 

Reclaiigle(PainlDC,pointx-3,poiitt.y-3,poiotx+3,point]r*-3); 

> 

A  sample  rectangle  is  then  printed.  It  will  be  used  as  part  of  the  plot  legend. 

/i^mnt  sample  rectangle  (numerical  point) 

poinlx  >  12S*width/640.0; 
pointy  >  290*lieiglit/480.0; 

Rectangle(PaintDC,pointx*3,pointy-3,pointx+3,poinLy+3); 
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The  process  is  repeited  for  the  exact  solution  for  downwash  vdodty,  using  blue  drdes 
instead  of  red  rectan^tes.  The  code  is  shown  above  and  is  not  rq)eated  here.  ^ 

The  thin  blade  pen,  small  font,  and  wlute  brush  are  then  sdected  into  the  device 
context  for  the  purpose  of  labding  the  graph  and  filling  in  the  horizontal  and  vertical  lines 
onthegn^)!!.  The  text  alignment  is  set  to  right  adjusted  using  the  SetTextAlign  fiinction  * 

prior  to  printirig .  The  SetTextAlign  fiinction  receives  a  handle  to  the  device  context  and  a 
text  alignment  flag.  The  text  alignment  flag  can  be  any  of  the  following: 

9 

TA_CENTER  horizontally  centered 
TA_LEFT  aligned  to  the  left 

TA_RIGHT  aligned  to  the  right  * 

//select  the  solid,  thin,  black  pen,  the  white  brush,  and  the  small  font 
SelectPen(PaintDC,hOldPen); 

SdectObject(PaintDC,  hWhiteBrush);  ^ 

hOMFont  =  SelectFont(PaintDC,hSniallFont); 

//align  the  text  output  to  right  adjusted  and  label  the  y  axis 

SetTextAUgn(PaintDC,TA_RIGHT);  * 


A  for  loop  containing  MoveTo,  LineTo,  sprintf,  and  TextOut  fiinction  calls  is  then 
used  to  draw  the  horizontal  lines  and  label  the  y  axis.  The  number  of  dedmal  places 
drawn  in  the  y  axis  labds  is  sdected  as  one  or  two  depending  on  the  range  of  the  grq>h. 

//draw  the  horizontal  lines  fix  the  grafrii 
fi)f(i»-5;i<6;i++)  { 

MoveTo(PaintDC,(intK(origin.x>132)*width/540.0), 

(int)((origin.y-i*  lS)*height/480.0)); 

LineTo(PaintDC,(intX(origin.x+130)*width/640.0), 

(intX(origin.y*i*  15)*hdght/480.0)); 
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itMX_w<10.0)( 


.•%4.2r.(*«_w/S.O)*0; 


TtxK)ii^tiaOC.(ittX(origi».x440)^miai^ 
(ia(X(cricia.H*15-3)*hdght/4S0.0). 
buffer,  leagdi); 


length  *■  (printghuffer.  *%4.1f'.(fflax_w/5.0)  *  i); 


TextOut(PnintDC.(intX(origin.x-140)Sndlh/640.0). 

(intX(origia.y-i*  15-3)*height/480.0), 
buffo,  length); 


After  restoring  the  text  alignment  to  TAJLEFT,  the  deftuilt  value,  another  for  loop 
containing  MoveTo,  LineTo,  sprint^  and  TextOut  ftinction  calls  is  used  to  draw  the 
vertical  lines  and  label  the  x  ans. 

//lestofc  the  text  aUgnment  to  left  adjusted  and  Ubd  the  X  axis 
SelTextAlign(nHnCDC,TA_LEFT); 
fi>i(i^5;i<6;i++)  { 

MoveToO*aintDC,(intX(origin.x-H*26)*width/640.0). 

0Bt)(((origin.y^77)*betglit/4S0.0))); 

UiMTo(PaiiidX;Ci«X(origi&x+t*26)^n^^ 

(iatX((ofigin.3r-7S)«hetghi/4S0.0))); 

leagih  -  q»intf(buffo,  *%2.  lf”,0.1*i); 

TextOut(PaiiUDC,(intX(ocigin.x-S-H*26)*width/i640.0), 
(int)((oiigin.]ri-80)*height/4g0.0). 
buffo,  length); 
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The  ori^  is  then  reset  to  the  emulation  gnq  A  origin  and  the  entire  process, 
except  fix’  drawing  the  sample  rectangle  and  ellipse,  is  repeated  fix’  the  drculatxxi  ^aidi. 
The  code  is  shown  above  and  is  not  repeated  here.  The  vertical  and  device  defiuilt  fixits 
are  then  used  in  coiguction  with  ^xintf  and  TextOut  calls  to  label  the  graphs  and  the  |dot 
l^end. 

/Aided  the  vcftical  feat  sad  Ubd  the  y  axes 

SeiedFoiit(PaiiitDC.hFoatVeft); 

length  -  sprintfl^iTfer.  *W/U*); 

TextOdCPaiatDC.  (intX27S.0«wultli/640.0). 

(iiitX120.0«lieight/480.0). 
buffo,  length); 

length  -  sprintfQwffo,  "NON-DIM  CIRC"); 

TextOutfPaintDC.  (intX275.0*widlh/640.0). 

(intX3SO.O«height/4SO.O), 
buffo,  length); 

//sded  the  device  defeult  feat  bade  into  the  device  context,  labd  the 
//x  axes  and  the  sample  ellipse  and  rectangle 

SelectFont(PaintDC,hFont); 

length  -  sprintfCbuSer,  "SPAl'^iWISE  POSITION  Y/S"); 

TextOutCPaintDC,  (intX370.0*widthA540.0), 

(intX190.0*heig]tt/480.0), 
buifo,  length); 

TextOutCPaintDC,  (intX370.0«widtli/640.0), 

(intX410.0*height/480.0), 
buffo,  length); 

length  «  spriiXfi(lNiffo,  "Exad:"); 

TextOutCPaiidDC,  (intX3S.0*vndth/640.0), 

(intX260.0*lid^t/480.0), 
bu£fo,  length); 

length  =  qxintfCbuffo,  "Approx:"); 

TextOutCPaintDC,  CintX53.0*wi(bh/640.0), 
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(iiilX2tO.O*heighl/4SO.OX 
bdftf,  kaiik); 

TIm  peroent  error  data  box  is  then  drawn  with  a  series  of  Rectan^  (unction  calls 
and  fifled  in  with  ^mntf  and  TextOut  caUs.  The  screen  ou^xit  is  complete  at  that  point. 
The  original  fimt,  pen,  and  brush  are  selected  bade  into  the  device  context  and  the  fonts, 
pens,  and  brushes  created  for  the  paint jgraphs  fonedon  are  ddeted.  Thememcny 
allocated  for  the  plot  data  is  freed  and  the  function  terminates  without  a  return  statement. 
The  code  is  shown  above  and  not  repeated  here. 


A.SJ  The  VLL  print_data_box  and  print  jgraphs  functions. 

VLL  uses  two  functions  to  draw  output  to  the  system  printer.  The  first  is  the 
print_dataJbox  function.  The  print_dataJbox  function  is  nearly  identical  to  the 
paint_data_box  function.  The  difference  is  that  v^e  the  paint_data_box  function  uses  the 
^obaliy  defined  width  and  height  variables  that  are  initialized  in  the  WM_CREATE  case 
in  the  MainWndProc  function,  the  printjdatajbox  functimi  declares  local  width  and  height 
float  variables  and  calculates  the  horizontal  and  vertical  display  size  internal  to  the 
function.  These  code  s^ments  are  shown  bdow. 

*  Variable  dedaratioiis  * 

float  width,  //scale  fiKtors  for  ensuring  the 

height;  //  graphical  output  is  scaled  to 

//  a  640  by  480  window 

//determine  die  width  of  the  display  in  pixels  and  the  height  of  the  disph^ 

//  in  raster  lines  and  cast  them  as  floats 

width  -  (float)GetDevioeCtg»  (PaintDC,  HCHtZRES); 
hei|^  « (float)GetDevioeCaps  (PaintDC,  VERTRES); 

Umot  the  nonnal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
// output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)>(4.0/3.0)) 

width  -  height*(4.0/3.0); 
dse 

heigm  *  width*(3.0/4.0); 
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The  second  used  by  VLL  to  drew  output  to  the  ^stem  printer  is  the 

print _gn4)hs  fimcdon.  The  prim  jgraphs  (unction,  like  the  pruit_date_box  fiinction,  is 
nearly  kksnrical  to  its  screen  painting  counterpait.  The  difference  between  these  two 
fimctions  is  also  in  the  local  dedaration  and  calculation  of  the  width  and  height  vaiiables. 
These  code  si^ments  are  shown  bdow. 


//scale  fiKtofs  for  ensuring  the 
//  graphical  output  is  scaled  to 
//  a  6M  by  4S0  window 


*  Variable  dedaiatioas 


float  width, 

height; 


//determine  the  width  of  the  display  in  pixels  and  the  height  of  the  di^lay 
//  in  raster  lines  and  cast  them  as  floats 

width  ■■  (floot)GetDevioeCaps  (RaintDC,  IKXIZRES); 
height  -  (float)GetDeviceCaps  (PaintDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
// output  made  by  the  program  is  in  that  aspect  ratio 

ifl[(width/height)>(4.0/3.0)) 

width  »  height*(4.0/3.0); 
else 

height  ^width^BmO); 
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A.(  VLL  progrui  Kftiagi. 

The  VLL  Wndows™  a|q>lication  uses  thirteen  files.  Listings  fisr  these  files  are 
induded  with  this  document  as  Appendix  A.6  on  a  3.S  inch,  IBM  PC  formatted,  double 
sided,  hi^  density  flon^y  disk.  The  files  are  saved  in  an  ASCII  text  format  wMch  can  be 
read  using  a  DOS  text  editor  or  ai^  word  processor  capaUe  of  reading  DOS  text  files. 

The  complete  files  of  this  and  the  other  programs  in  tlus  theas  are  not  inducted  in  the 
written  text  of  the  thesis  in  the  interest  of  limiting  the  size  of  the  document.  This  page  is 
included  with  the  listings  in  a  file  named  README.TXT. 

The  files  included  on  the  disk  are  described  bdow. 

VLL.C  -contains  the  WinMain,  MainWndProc,  WMCommand_Hand]er, 

and  dialog  box  functions. 

PRT(HIA.C  -contains  the  printjgraphs  function. 

NEWSOLVE.C  -contdns  the  LUdecompoation  and  LUbacksubstitution  functions. 
PRTBOX.C  -contains  the  print_dataJbox  function. 

PNTBOX.C  -contains  the  paint_dataJbox  function. 

PRTGRA.C  -contains  the  paint _graphs  function. 

VLL.DEF  -the  module  definition  file. 

VLL.RC  -contains  definitions  of  the  resources  used  in  the  VLL  program. 

VORTEX.C  -contains  the  vortex  function. 

HEADER.H  -contains  the  #define  and  #in<^de  statements  for  the  VLL  program. 

VLL.H  -contains  the  definitions  ofthe  Windows'^  identifiers. 

README.TXT  -contains  a  copy  of  this  page. 

The  following  files  are  not  readable  text  files. 

FOIL.ICO  -describes  the  icon  used  to  rq>resent  the  program  in  the 

Windows''^  Program  Manager. 

■the  project  file  read  by  the  compiler. 


VLL.PRJ 
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The  VLMLE  WioMaio,  MainWni^Proc,  and  WMCommand^Handler  functions. 
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B.1  The  VLMLE  WinMein,  MainWndProc,  and  WMConiaiand_Handler 


functions. 

The  WinMain,  MainWndProc,  and  WMCoiTunand_Handler  functions  in  the 
VLMLE  Windows''^  tq  jplication  program  are  very  similar  to  those  of  the  VLL 
application.  For  this  reason,  the  diso:ssion  of  the  fiinctions  will  consist  mainly  of  a 
comparison  of  the  differences  between  the  VLMLE  functions  and  their  VLL  counterparts. 

B.1.1  A  comparison  of  the  VLL  and  VLMLE  WinMain  functions. 

The  WinMain  function  for  VLMLE  differs  from  the  WinMain  function  for  VLL, 
essentially,  only  in  the  addition  of  the  SetTimer  frmction  call  shown  below. 

//create  a  timer 

SetTiiner(hWnd,ID_TIMER,  lOO.NULL); 

The  SetTimer  function  call  is  made  immediately  following  the  creation  and  display 
of  the  main  window.  The  SetTimer  function  receives  the  handle  to  the  window  for  which 
a  timer  is  being  set,  a  Windows™  identifier  for  the  timer,  the  time-out  duration  in 
milliseconds,  and  the  mstance  address  of  the  timer  procedure.  In  this  case,  the  handle  of 
the  nuun  window  is  specified  as  the  window  associated  with  the  timer.  IDM_TIMER  is  an 
identifier  that  is  defined  in  the  VLMLE  header.h  file.  The  NULL  value  for  the  instance 
address  of  the  timer  procedure  and  the  100  for  the  time-out  value  mean  that  the  timer  will 
cause  a  WM_TIMER  message  to  be  posted  in  the  application  message  queue  every  tenth 
of  a  second.  Since  Windows™  provides  only  a  limited  number  of  timers,  it  is  important  to 
make  judicious  use  of  them  and  to  properly  terminate  their  use  in  order  to  return  them  to 
the  operating  environment  for  use  by  other  applications.  This  will  be  taken  care  of  in  the 
MainWndProc  function. 

B.1.2  A  comparison  of  the  VLL  and  VLMLE  MainWndProc  functions. 
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The  differences  betweoi  the  MainWndProc  fiinctions  for  the  VLL  and  VLMLE 
functions  are  more  extensive  than  those  of  the  WinMain  functions.  The  VLMLE 
MainWndProc  function  is  shown  below. 

LRESULT  CALLBACK  .export  MainWadProcOIWND  hWnd.  UINT  message. 

>^ARAM  wPaiam,  LPARAM  IPanm) 

{ 

switch  (message) 

{ 

/Ahis  case  refers  menu  selections  to  the  WMCommand.Handler  function 

caseWM  COMMAND: 

{ 

return  HANDLE_WM_CCA<MAND(hWnd,  wParam,  IParam,  WMCommand.Handler); 

} 

caseWM  PAINT; 

{ 

//this  case  handles  painting  the  screen 

HDC  PaintDC;  //handle  to  a  device  context 

PAINTSTRUCT  ps;  //paint  structure 

//prepare  hWnd  for  painting  and  fill  the  paint  structure,  ps 
PaintDC  =  BeginPaint(hWnd,  &ps); 

//paint  the  data  box  whenever  the  screen  is  repainted 
paint_data_box(PaintDC ); 

//paint  the  grrqihs  if  the  fortran  executable  has  been  run  and  the  variable 
// data  has  not  changed  since  it  was  run 

if(run_flag) 

paint jgraphs(PaintDC); 

//mark  the  end  painting  hWnd  and  return  0 
EndPaintfhWnd,  ftps); 
return  0; 

} 

case  WM.TIMER : 
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{ 


/Abu  cue  is  executed  each  timer  imeival.  it  kwks  for  the  file  that 
//  the  fbftnn  cxecwthMe  it  terminating  and  then  fcpaints  the 

//  scfcen  and  wts  the  tun  fiag 


i«[acGessrvliiik.dne*.0)  — 0)  { 


RECT  temp_nct;  //temporary  rectangle  stiuctuie 


HDC  tenqdX^: 


//handle  to  a  lell^)Ofaly  device 
//context 


fioat  width,  //scale  factors  for  ensuring  the 

height;  //  graphical  output  is  scaled  to 

' by  480  window 


//get  a  handle  to  the  screen  device  context 
tempDC  =  GetDC(hWnd); 

//determine  the  width  oi  the  display  in  pixels  and  the  height  of  the  display 
//  in  raster  lines  and  cast  them  as  floats 

width  =  (float)GetDeviceCaps  (tempDC,  HORZRES); 
height  (float)GetDevioeCaps  (tempDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
//  output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)>(4.0/3.0)) 

width  =  height*(4.0/3.0); 
else 

height  =  width*(3 .0/4.0); 

//release  the  handle  to  the  device  context 
Relea8eDC(hWnd,tem|dX:); 


run_flag  ■  1; 

//cause  qiptopriate  sections  of  the  screen  to  be  repainted 

tenip_tecttop  =  (int)(lefl:_recttq)*beight/480.0); 
temp_rectbottom  » (int)(l^_rectbott(Mn*hdgbt/480.0); 
temp_rectleft  =(int)(left_tectleft*width/640.6); 
tenq>_rectright  ~  (int)(lef^iectright*width/640.0); 

InvalidateRect(hWnd,  fttemp_rect,  TRUE); 

temp_recLtop  -  (intXright_recttop*height/480.0); 
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teiiip_nctbQllom  *  (iatXrigltt_ncLboaoiii*hdglit/480.0); 
teiiq>_ncLleft  -(iBtXrigte.rectleftHndth/SM.O); 
tenp.fccLright  -(iiitXriglit_itctriglit*widtli/640.0); 

lavalidatcRectOiWod,  Aleaq)_ract.  TRUE); 

} 

fcturaO; 

> 

case  WM  DESTROY ; 

{ 

//this  handles  requests  to  exit  the  program  made  methods  other  than 

// the  main  menu 

//delete  the  temporary  files 

if^acoessCinputdat”.  0)  =  0)  unlinkCinpuLdat”); 

iftaccessCoutpuLdat*,  0)  ===  0)  uniinkCoutpuLdat*); 

//remove  the  timer  and  request  that  the  program  be  terminated  1^  the 
//  Windows  environment 

KillTinier(hWnd,ID_TIMER); 

PostQuitMessage(0); 

return  0; 

} 

> 

return  DefWindowProc  (hWnd,  message,  wPaiam,  IParam); 

} 

The  MainWndProc  for  VLMLE  has  a  function  declaration  identical  to  that  of  VLL.  Like 
VLL,  it  also  consists  of  a  switch  that  handies  four  cases  and  passes  messages  not  handled 
by  tlw  switch  to  the  defiuilt  window  procedure.  The  WM_COMMAND  case  and  the 
WM_PA]NT  case  are  identical  to  those  of  VLL. 

A  WM_CREATE  case  is  not  included  in  VLMLE  as  it  was  in  VLL.  In  VLL  the 
case  was  used  to  initialize  global  variables  containing  data  regarding  the  horizontal  and 


vertical  dimoiMMisofthe  monitor  di^Uy  area.  In  VLMLE  these  calculations  are 
performed  in  the  output  functions,  patnt_dataJbox  and  paint .^graphs  and  locally  in  the 
cases  whidi  cause  only  portions  of  the  monitor  di^lay  to  be  redrawn.  The  advantage  of 
performing  the  calculatkms  in  the  output  functions  is  that  the  output  functions  can  be 
written  to  be  independent  of  the  output  device.  This  means  that  the  paint_data_box  and 
paint  jgraphs  fonctions  write  output  both  to  the  moiutor  and  to  the  printo*  and  no 
additional  output  functions  are  required.  The  disadvantage,  which  is  extrondy  minor,  is 
that  the  calculations  must  be  repeated  rdatively  fiequently. 

The  VLMLE  MainWndProc  has  a  case,  the  WMJTIMER  case,  that  is  not  included 
in  the  VLL  function.  The  WM_TIMER  case  responds  to  WM_TIMER  messages 
generated  by  the  timer  that  is  created  in  the  WinMain  function.  Every  tenth  of  a  second,  a 
WM_TIMER  message  is  posted  in  the  application  message  queue.  In  response  to  the 
messages,  the  access  function  is  used  to  check  for  the  existence  of  the  vlmle.dne  file.  The 
vlmle.dne  file  is  the  dummy  file  that  the  VLMLE  FORTRAN  executable  writes 
immediately  prior  to  termination.  If  the  file  is  found  to  exist,  local  variables  are  declared 
for  the  purpose  of  determining  the  sze  of  the  monitor  di^lay  area.  The  size  of  the 
monitor  display  area  is  then  calculated.  The  run  flag  is  that  set  to  indicate  that  the  current 
set  of  variable  data  has  been  run  and  output  created. 

case WM  TIMER: 

{ 

//this  case  is  executed  each  timer  interval,  it  looks  for  the  file  that 
//iiMlioaes  the  fortran  executable  is  terminating  and  then  nqiaints  the 
//  soeen  and  sets  the  ran  flag 

if(aocess(*vlinle.dne*,  0) 0)  { 

RECT  teinp_rect; 

HDC  tempDC; 


/Aemporaiy  rectangle  structure 
//handle  to  a  tenqroraiy  device 


float  wkhh. 
hei^bt; 


//acak  fiKlon  for  eaniriag  tke 
// gnphical  output  is  fcaled  to 
//  a  640  by  490  wiadow 


//pet  a  haade  to  the  acreea  device  oouiext 
tenipDC  «  GeOX^hWad); 

//detenaiae  Ak  width  of  the  diqilay  ia  pixds  aad  the  heipht  of  the  display 
// ia  raster  liaes  aad  cast  theai  as  floats 

width  -  (float)GetDevioeCips  (foavDC,  HCXtZRES); 
height  -  (float)GetDevioeCapc  (tempDC.  VERTRES); 

//siaoe  the  aonaal  display  aspect  ratio  is  4  to  3.  easuie  that  the  graphical 
// output  Blade  by  the  prograia  is  ia  that  a^Mct  ndio 

if((width/height)>(4.(l/3.0)) 

width  >  lidght*(4.Q/3.0); 
else 

height  =  width*(3.(V4.0); 

//release  the  haadle  to  the  device  cmiext 
ReleaaeDC(hWad,teiiipDQ; 


nio_flag  >■  1; 

//cause  appropriate  sectioos  of  the  screea  to  be  repainted 

temp.recttop  =(intXleft_recttop*height/4«0.0); 
teaip_iectboaoin  -  (int)0eft_rectbottoni*height/480.0); 
temp_rectleft  -(int)(left_iecLleft*wi(hh/640.0); 
temp.rectright  =  (intXieft_rectright*width/640.0); 

InvalidateRect(hWiid.  Atemp.rect,  TRUE); 

tenv.iecttop  =  (intKright_reatop*lieight/480.0); 
teiqi_iectbo<toin  =  (intXrigirt_rectboaoin*heighl/480.0); 
teoqijrectlefl  =(iiitXright_rectldl*widlh/640.0); 
tenq>_recLright  « (iiitXrighT_rectright*widlh/640.0); 

InvalidaieRect(hWnd.  &teinp_rect.  TRUE); 

u£dink('Srlnile.dne”); 


The  case  then  causes  the  area  of  the  mmutor  exclusive  of  the  Current  Variable  Data  area 
^  to  be  erased  and  then  repainted  by  calling  the  InvalidateRect  function  and  specifying  the 

i^ipropciate  rectangles.  For  this  purpose  the  ^obal  rectangle  structure  variables  left_rect 
and  ri^jrect  are  scaled  so  that  nKMutors  with  other  than  a  640  by  480  di^lay  area  will  be 

*  handled  properly.  The  reason  fix  not  invalidating  and  redrawing  the  entire  screen  is  to 
prevent  screen  flicker  in  the  Current  Variable  Data  area.  The  vlnile.dne  file  is  then  ddeted 
using  the  unlink  function  and  the  case  is  temunated  by  returning  a  value  of  zero  to  indicate 

*  that  the  message  was  handled  by  the  function. 

The  WM_DESTROY  case  is  functionally  identical  to  its  VLL  counterpart  with  the 
exceptimi  of  the  addition  of  a  KiUTimer  function  call. 

*  KiliriiiKr(hWiid.ID_TIMER): 

The  KilTHmer  function  receives  a  handle  to  the  window  associated  with  the  timer  to  be 
terminated,  and  the  identifier  of  the  timer  and  removes  the  timer.  This  is  done  due  to  the 
^  limited  number  of  timers  available  in  Windows’’^  so  that  the  timer  may  be  assigned  to 

other  applications. 

9  B.1,3  A  comparison  of  the  VLXi  and  VLMLE  WMCommand_B[andler  functions. 

The  WMCommand_Handler  function  for  VLMLE  is  very  similar  to  the  VLL 
WMConrnuuidJHandler  function  in  terms  of  functionality  provided  as  well  as  structure.  It 
9  is  shown  below  in  a  series  of  segments,  with  a  ruurative  discussion  of  the  code 

iiiterq>ersed  throughout  the  segments. 

The  function  consists  mabily  of  a  switch  that  handles  requests  made  by  the  user 
9  with  the  nuun  menu.  At  the  start  of  the  function  a  declaration  of  a  pointer  to  a  dialog 

procedure,  dlgProc,  is  made.  The  pointer  is  used  in  three  of  the  switch  cases  to  process 
requests  tor  interaction  with  dialog  boxes. 

9 

void  WMCoauaaiidJlaiidlefCHWND  hWnd,  int  id.  HWND  hwndCtl,  UINT  codeNdtify) 

9 


171 


I 


i 


€ 


I 


I  I 


« 


« 


{ 

HjGPROCdigPiOG;  //^loialertoadialogpRwediife 

•wteb(id) 

{ 

The  first  cue  handled  by  tlie  switch  is  the  IDM_RUN  case.  This  case  re^KMids  to 
the  main  menu  FilePitun  sdecfion.  The  case  first  calculates  the  screen  display  area  size  in 
the  same  vncy  used  by  the  WM_TIMER  case  in  section  B.1.2. 


CMeII»«_RUN:{ 
RECT  team.iect; 
HDC  tempDC; 


/Acatponiy  rectangle  structure 

//handle  to  a  temporary  device 
//context 


float  widtli, 
height; 


//scale  fiKtors  for  ensuring  the 
//  gtaiAical  output  is  scaled  to 
//  a  640  by  480  window 


//get  a  handle  to  the  screen  device  context 
tenvOC  »  GetDC(hWnd): 

//detenniTK  the  width  of  the  di^ibV  in  pixds  and  the  height  (tf  the  displiQr 
// in  raster  litres  and  cast  them  as  floats 

width  (floatlGetDevioeCaps  (tero|dX^,  HOR2tES); 
height  -  (float)GetDevioeCaps  (ten^DC.  VERTRES); 

//since  the  normal  dispisy  aspect  ratio  is  4  to  3.  ensure  that  the  gr^diica] 
// output  made  by  the  program  is  in  that  aqrect  ratio 

ifl:(widthflrei^)>(4.0/3.0)) 

width  height*(4.0/3.0); 
else 

height -wkMi*(3.0/4.0); 

/Aeieaae  the  handk  to  the  device  context 
RdeaselX::(hWnd.tempDQ; 


The  case  then  clears  the  run  flag  in  order  to  indicate  that  the  current  variable  data 
hu  not  yet  been  processed  by  the  FORTRAN  executable,  and  then  clears  the  portion  of 
the  screen  extenud  to  the  Current  Variable  Data  area.  After  this  is  accomplished,  the 
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i^Nit  ditft  file,  iii|Mit.dat.  that  wiB  be  read  by  the  F<^TRAN  executive  is  written.  The 
nunber  of  paneb  to  be  used,  the  ideal  lift  coefficient,  the  angle  of  attack  relative  to  the 
ideal  angle  (^attack,  and  the  thickness  to  diord  ratio  are  induded  in  the  file. 

//if  the  Bser  sdects  "Rim”,  write  die  iofMtdat  file  sad  nia  the 
// vfanie  fatiaa  praftMB 

//dear  the  raa  fiag  aad  came  the  tcieea,  other  thea  the  date  box.  to 
//beiepaialed 


rua_fiag  ■  0; 

//came  appropriate  aectioBf  of  die  acfoea  to  be  lepaiated 

tea^)_rectlop  *  (iotXleft_recttop*height/480.0); 
leiiip_iectbottom  -  (iotXI^_rectboaoin*height/480.0); 
teBip_rectieft  -  (iiitXI^_rectleft*widlh/640.0); 
temp.recLright  >(iiitXldt_iectright*width/640.0); 

lavalidateRectChWnd,  Ateinp_rect,  TRUE); 

temp^recttop  >  (iotXrigbt_iecLt<9*beight/480.0); 
teoip_recLbollom  (iatXright_rectboaoin*height/480.0); 
teinp_iecLkft  »(iotXright_rectldt*width/640.0); 
tenip_iecLright  =  (intXtight_recLright*width/640.0); 

Iiivalidatdtect(hWnd,  Atemp.rect,  TRUE); 

Iavalidatdtect(hWiid,  ftright_iect,  TRUE); 
lavalidateRectpiWiid.  ftleft_rect,  TRUE); 

//open  the  iapuLdat  file  aad  write  the  data  used  by  the  foitiaa  executable 

ia  -fi)peoCINPUT.DAr .  "w"); 

fpriotftia.’Sd  \a*,NUMBER_PANELS); 

Qiiiatfl^"Sf\a”,ideal_lift_coefiBcient); 

ipriotfl[iii,"%f\a",ddta_alpha); 

ftKintf(iii."9tf\o”,thiduie$s_choni_iatio); 

ldooe(ia); 


The  FORTRAN  executable  is  then  run  by  a  call  to  the  WinExec  function.  The 
WinExec  fiinction  reedves  a  pointer  to  the  command  line  of  the  program  to  be  run  and  the 


window  state  in  wdnch  the  |MX>gnun  wOl  be  displayed.  In  tins  case,  a  Windows™  Program 
Information  File  (.|^  wludi  names  the  executable  and  describes  how  it  is  to  be  run  is 
called  by  the  WinExec  function.  This  causes  the  FORTRAN  program  to  be  itm  in  an 
icomfied  DOS  window.  The  case  is  then  terminated  and  execution  of  the  FORTRAN 
executable  continues  in  paraUd  >Mth  the  Windows™  program. 

//run  the  fbrtian  execulabk  in  an  iBooaified  DOS  window 

WinExec(*newvliiiie.pir,  SW_SHOWMINIMIZED); 

bleak; 

} 

The  IDMJPRINT  case  is  virtually  identical  to  the  VLL  IDM_PRINT  case,  which 
is  described  in  detail  in  section  A.3. 

case  IDM_PRINT :  { 

//this  case  calls  the  print  dialog  box 

PRINTDLG  pd;  //print  dialog  stnictuie 

DOCINFO  di;  //document  infonnation  stnicture 

int  j;  //page  counter 

//if  a  print  request  is  made  using  the  main  menu  and  the  case  has  not  been  nm, 

// print  a  warning  and  deny  the  request 

if  (lrun_llag) 

{ 

MessageBeq)(MB_ICX)NEXCLAMATION); 

MessageBox(hWnd,  "Must  run  program  prior  to  printing.”, 

"WARNING!”,  MBJCONSTOP 1  MB_OK  |  MB_TASKM(X)AL); 

break; 

> 

//otherwise,  process  the  request 
//set  all  structure  mentos  to  zero. 


memset(Apd,  0,  sizedKPRINTDLG)); 


dLcbSiae  «  azeoflODOOfTO); 
di.lpcd>od«UM  -  "VLMLE*; 
di-^CEOuQiut  -  NULL: 

IfiaUalBat  the  ■eoMiy  FlUNTDLG  ftiuctiife  laaBbea. 

pdlStnclSizB  ■■  iiaeofl[PIUNTDLG); 
pd-hwadOwner  *  hWad; 

pdJ^  -  PD_RETORNI)qPD_lflI)EPlUNTTOnLE|n>_NOSELE^ 

pd.aFraaiP«te  - 1; 

pd.aTafhfB*  1; 

pd.ahfiBPiCB*  1; 

pdaMaxPigB"  1; 


if(PriatDl8(d^l-0){ 


StaftDoc(pd.iiDC.Adi): 
fbrd-O;  j<pd.iiCopies; }++){ 
StaftPagc(pd.hDC); 
paint_data_box(pd.hDC  ); 
poim _graphs(p(LhDC); 
EodPageCpdhDC);  } 


EadDoc(pd.hDC); 

Dde(d)C(pd.liDQ; 


> 

if  (pdhDevMode  I-  NULL) 

GM»IFree(pd.liDevMode); 

if  (pd-hDevNaows  NULL) 

GlobelFiee(pd.liDevNaaws); 

bleak; 

> 


The  next  case  handles  requests  for  the  Geometry  dialog  box.  AsintheVLL 
WMCommandHandler  fiinction,  the  MakeProcInstance,  DialogBox,  and  Fre^roclnstance 
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fiinctions  are  used  to  cafl  and  handle  the  <&ilog  box.  After  the  dialog  box  is  terminated, 
the  nundter  of  pands  indicated  by  the  user  is  tested.  If  the  nundier  fills  outside  the  range 
of  five  to  100,  a  warning  message  is  printed  and  the  dialog  session  is  repeated  by  using  the 
SendMessage  fimction  to  sumilate  a  main  memi  request  for  the  Geometry  dialog  box.  The 
screen  is  then  caused  to  be  repainted  using  the  Invalidatdlect  function.  Since  the  nm  flag 
is  cleared  in  the  Geometry  dialog  procedure,  this  causes  the  Current  Variable  Data  to  be 
updated  to  reflect  the  new  input  data  and  the  rest  of  the  screen  to  be  cleared, 
case  n»l_GEOMETRY :  { 

//this  case  calls  the  geometry  dialog  box 

dlgProc  *  (DLGPROC)MakeProcfn.<tance((FARPROC)DlgProc. 
ghlostanoe); 

DialogBoxCghlnstance,  'GEOMETRY*.  hWnd,  dlgProc); 
FieeProcIiistanoe((FARPROC)dlgProc); 

//if  the  number  of  dements  input  by  the  user  is  outside  the  allowable, 

// prim  a  warning,  cause  the  dialog  to  be  reinitiated 

if(NUMBER_PANELS>100(lNUMBER_PANELS<5)  { 

MessageBoxQiWiid.  *Nuiid)er  of  Panels  must  be  between  5  and  100”, 

"WARNING!",  MB_ICX)NSTCH»  |  MB_OK  |  MB_TASKMM)AL); 

SeadMessage(hWnd.WM_COMMAND.IDM_GEOMETRYJ^fAKELONG(0,0)); 

} 

//otherwise,  cause  the  screen  to  be  repainted  and  terminate  the  case 
InvalidateRect(hWnd,  NULL,  TRUE); 
break; 

} 
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The  IDMJPARAMETERS  case  handles  main  menu  requests  for  the  Parameters 
dialog  box.  It  calls  the  dialog  box  procedure  and  thmi  causes  the  screen  to  be  repainted 
with  the  same  results  as  the  IDM_GEOMETRY  case. 
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cm  imi.PARAlkffiTERS :  { 

/Ahis  caw  calls  tltt  feoacliy  dialof  box 

(fliPrac  *•  aXX3«OQMalKPracliiwuioe((FA 
iblnstanca); 

Diabi^bBt(gMiiitaafift.  TARAMET^RS”,  hWad.  dl^rac); 
Ffotfradaattaoe((FARFIlOC)dl|Pnc); 
iBvalklaidtectChWiid.  NULL.  TRUE); 
bicNc; 

} 

The  IDMJEXrr  case  deletes  the  temporary  data  files,  kills  the  timer,  and  requests 
that  the  Mfindows'^N  environment  terminate  the  program.  The  IDM_ABOUT  case  and  the 
hdp  fieature  cases  work  in  the  same  way  as  their  counterparts  in  the  VLL 
WMCommand_Handler  fiinction. 

caseIDM_EXrr:{ 

/Ahis  case  delwes  the  tempwaiy  files  and  tenniiiates  the  pfDgram 

ifiaocessCinpuLdat",  0)  -«•  0)  unlinkCinpuLdat”); 

ifiaocessCoutpuLdat”,  0) »  0)  unlinkCoutpuLdat”); 

/^remove  the  tuner  and  request  that  the  program  be  terminated  by  the 
// Windows  envuDomeat 

Kiirruner(hWnd,ID_TlMER); 

PDslQuitMessage(0); 

break; 

} 

caseIl»d_ABOUT:{ 

//this  case  calls  the  About  dialog  box 

dlgProc  -  (I».GntOC)MakeProcInstance((FARniOQABOUnMgProc. 
ghlnstance); 
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Di«lo^<m(ghliMliiioe.  'ABOUT*.  bWad,  dlcProc); 

Fierfw)clii«t«iicc((FARPROC)dlgPiDc); 

hnAi 


} 

//the  next  seveial  casei  lapoad  to  the  help  section  of  the  main  menu 
case  IDM.HELPGENERAL : 

{  MesngdoxC^nd.  The  2^  Vottex/aouioe  Lattice  Program  \ 
appUes  a  vortex  lattice  method  with  LiglnhiU  correction.  It  calailates  \ 
and  displays  pressure  coefficient  on  the  upper  and  lowm’ surfiKcs  of  a  \ 
NACA  66  aK>.8  mean  line  fixl  with  NACA  66  (Mod)  thidmess  foim.\n\n\ 
The  user  selects  angle  of  rttadc  relative  to  ideal  angle  of  attadc  and  \ 
ideal  lift  coefficient*. 

"HELP*.  MB  ICONINF(»MATION|MB_OK); 
break; 

> 


caseIDM_HELPRUN: 

^  {  MessageBm(hWnd.  "When  Tile(Run'  is  selected  from  the  main  \ 

menu,  the  program  uses  the  Current  Variable  Data  to  calculate  and  display  \ 
pressure  coefficient  on  the  upper  and  lower  surftices  of  the  foil.\n\n\ 

The  total  lift  ooefficiatt  is  al»  calculated  and  displayed.\n\n\ 

This  selection  also  causes  a  teqriot  file,  Vlmle-tec',  to  be  written  \ 
to  the  directory  where  the  program  is  resident.*, 

•  *HELP*,  MB  ICONINFCMtMATION  |  MB_OK  ); 

break; 

} 


case  IDM_HELPPRINT : 

{  KfessageBoxC^nd,  "When  Tile|Print'  is  selected  fiom  the  main  \ 
menu,  the  program  invokes  standard  Windows  Print  and  Print  Setup  Dialog  \ 
boxes  to  allow  the  user  to  print  the  data  that  appears  on  the  screen.". 

"HELP",  MBJCONINFORMATION 1  MB  CHK  ); 
break; 

} 

caselDM.HELPEXnr: 

{  MessageBox(^nd,  "When  TilejExit'  is  selected  from  the  main  \ 
menu,  the  program  is  terminated.”, 

"HELP",  MBJCONINFCMIMATION 1  MB_OK  ); 
break; 


case  IDM_HELPEL04ENTS : 

{  Message6ox(hWnd,  "When  T)ptions|Geometiy'  is  selected  fiom  the  main  \ 
menu,  the  user  may  select  a  number  panels  to  use.^\o\ 

The  number  ofpanels  must  be  between  5  and  100,  inclurive.  The  d^uilt  value  \ 
fiir  the  nuihber  of  nanels  is  40.*. 

"HELP",  MB  ICONINFORMATION  |  MB_CHC  ); 
break; 

) 
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case  IDM.HELPTHICKCHORD : 

{  Messag^x(hWnd,  "When  ’OptionsIGeoinetry'  is  selected  firom  the  main  \ 
in»iu,  the  user  may  select  a  value  for  the  thickness  to  chord  ralio.\n\n*, 

"HELP",  MB  ICONINFORMATION  |  MB_OK  ); 
break; 

} 

case  IDM_HELPPARAMEreRS : 

{  NfessageBoxC^nd,  "When  'Options|Parameters'  is  selected  from  the  \ 
main  menu,  the  user  m^  select  values  for  ideal  lift  co^cient  and  the  \ 
angle  of  attadc  relative  to  the  ideal  angle  of  attadc.\n\n*. 

•HELP",  MBJCONINFORMATION  |  MB_OK  ); 
break; 

} 

} 

} 


APPENDK  B.2 


The  VLMLE  dialog  and  output  functions. 


BJZ  The  VLMLE  dialof  and  output  functions. 

The  dialog  fiuictions  that  initialize  and  handle  input  for  the  VLMLE  dialog  boxes 

are  completdy  anak^ous  to  the  VLL  dialog  fiinctions  described  in  section  A.4.  A 

con^>lete  listing  of  the  VLMLE  functions  niay  be  found  in  section  B.4. 

The  paint_dataJbox  function,  shown  bdow,  fulfills  the  same  roles  as  the  VLL 

paintjdatajbox  and  printjdatajbox  functions.  This  is  made  posable  by  calculating  the 

scale  fiu:tors  for  the  width  and  height  of  the  di^lay  internal  to  the  function.  The  other 

significant  difference  between  this  function  and  the  VLL  functions  is  in  the  use  of  fonts. 

The  VLL  fiinctions  sdect  the  device  drfault  font  into  the  device  context  and  use  it  to  draw 

the  text  output.  VLMLE  uses  the  system  font. 

void  paiiit_data  box(HDC  PaintDC) 

{ 

/*«««•«««•«««««*««•*•«««««*«««*«««**««««*******•**********•***•«••«** 

*  declare  variables  that  are  defined  in  the  vlinie.c  file  and  that  * 

*  will  be  used  in  this  fiinction  * 

*««««*««***••««•«*««*«««•**«•«*«•*«••«•**•*«••**«•*************«*****/ 


extern  int  NUMBER_PANELS; 

extern  float  delta_alpha,  ideal_lift_coe£Eicient,  thickness_chord_ratio; 

*  VariaUe  declarations 

*«««««««««««*«**««*«*««*««*«««««**«********«****•«***«**•***••**•«*•«/ 


char 

buffer(120]; 

//buffer  for  character  output 

int 

length; 

//length  of  character  output 

floid 

width. 

//scale  &ctors  for  ensuring  the 

height; 

//  graphical  output  is  scaled  to 

//  a  6^  by  480  window 

//detenniae  the  width  <if  the  di^lay  in  pixels  and  the  height  of  the  diqrlay 
//  in  rasto’  lines  and  cast  them  as  floats 

width  » (float)GetDevioeCaps  (PaintDC.  HORZRES); 
height  -  (float)GetDevioeCaps  (PaintDC,  VERTRES); 

//since  the  normal  dispbQr  aspect  ratio  is  4  to  3.  ensure  that  the  grqrhical 
// outpid  made  by  the  program  is  in  that  aspect  ratio 


if((«Mi|]i/lieiglit)>(4.0/3.0)) 

width  -  lidght*(4.0/3.0); 

hdght  >  wMhk'(3.0/4.0): 


/fendoce  the  cuneot  variabk  data  box  in  a  pair  rf  rectangles 

Rectaagle(PaintDC,(iittXl  *widlh/640.0).(int)(20*height/480.0), 
(iiitX205*width/640.0).(iiitX4S*hei^480.0)); 

Rectangle(PaiiitDC,(intXl-0*wkhh/640.0),(iidX45*height/480.0). 

(iittX203nridth/640.0).(iiitX290*hdght/480.0)); 


//Ubdthebox 

length  >  sprintf(buffer.  "CURRENT  VARIABLE  DATA*); 

TextOut(PaintDC,(intX<$*width/640.0) , 
(iiitX25*height/4gO.O). 
buffer,  length); 

length  =  sprintfCbuffer,  Thickness  form;"); 

TextOut(PaintDC.(intX10*width/640.0), 
(intXS0*height/4«).0), 
buffer,  length); 

length  •=  sprintffbuffer.  *NACA-66(Mod)*); 

TexlOut(PaintDC.(intX25*width/640.0). 

(intX70*height/480.0). 
buffer,  length); 

length  =  sprintf(buffer,  "Camber"); 

TextOut(PaintDC.(intX10*widt)i/640.0). 

(intX90*tieigbt/480.0). 
buffer,  length); 

length  ^  sprintffbufifer.  "NACA  a=0.8*); 

TextC)ut(PaintDC.(intX2S*width/640.0). 

(intxn0*height/480.0). 
buffer,  length); 

length  =  sprintf(buffer.  "Number  PatKis;*); 

TextOut(PaintDC,(intX10*width/640.0). 

(intX130*height/480.0). 
buffer,  length); 

length  =  sprintf(buffer,  •%d".NUMBER_PANELS); 
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TexlOul(PaiiitDC.(iiitX25Snd^ 

(iatX130«lid^4«).0X 
buffer,  kngth); 

fenHh  -  qirialflCbuffer.  "Ueil  Lift  Coeff.*); 

!'• 

K 

< 

TexlOiil(IhuiitDC.(iirtX10Svk^^ 

(iBtX170*bei^4S0.0). 
buffer,  feasfti); 

1 

leagth  «priittf(buffer.  *%S.3r.ideal  lift  codBcfent); 

u 

_f. 

TexlOut(PaiiftDC.(iittX25^Mdt^^ 

(iotX190«height/4«0.0). 
bufitf.  length); 

i 

length  ~  q>rintf(buffer.  *Alpha-Alpha(ideal);”); 

« 

TextOut(PaintDC.(intX10*width/640.0). 

(uitX210*lieight/480.0). 
bufo.  length); 

» 

length  =  sprintf(buffer,  *34S.3r,delta_alpha); 

• 

« 

TextOutCPaintDC.(intX25*width/640.0). 

(intX230«hdgbt/4»).0). 
bufier.  length); 

length  =  9rintf(buffer.  "Thick/Chonl  Ratio;*); 

< 

TextOut(PaintDC.(intX10*wulth/640.0), 

(intX250*iieight/480.0). 
buC^.  length); 

I 

length  =  sprintlQxiffer,  *%S.4r,thiduiess_chord_iatio); 

• 

TextOut(PaintDC,(uitX25*width/640.0). 

(intX270«beight/480.0), 
buffer,  length); 

> 

> 

The  paint ,^gn^>hs  function  in  VLMLE,  like  the  paint_data_box  function,  fulfills  the 

« 

same  roles  as  its  VLL  countetpart  functions.  Hus  is  accomplished  in  the  same  way  as  it  is 

in  the  paintjdatajbox  function.  The  VLMLE  paint jgraphs  function  also  makes  use  of  the 

system  font  ratfwr  than  creating  additional  fonts.  A  complete  listing  of  the  paint_^graphs 

1 

• 

function  is  contained  in  section  B.4. 
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APPENDIX  B3 


The  VLMLE  FORTRAN  program. 


lU  The  VLMLE  FORTRAN  pragrui. 

The  version  of  VLMLE  relies  upon  a  modified  version  of  the  (mginal 

FORTRAN  VLMLE  pn^nun  to  perfimn  die  required  hydrodynanne  calculations.  This  is 
(kme  in  fiivor  of  converting  the  FORTRAN  code  to  the  C  programming  langur^e. 
Ahhou^  the  conversion  would  be  rdadvely  sim[^  in  the  case  of  VLMLE,  this  program  is 
a  |MX>of  of  concept  project  that  lays  the  groundwork  for  the  use  of  more  complicated 
programs,  sudi  as  PLL,  as  stand  alone  FORTRAN  executables.  The  modified  version  of 
VLMLE  is  shown  bdow.  The  modifications  appear  in  bold  type. 


PROGRAM  VLMLE 

C - 

C  2-D  Vortex/souice  lattke  program  with  Lighthill's  leading-edge 
C  correction.  Combines  NACA-66(Mod)  thidraess  form  with  NACA  a^.8 
C  mean  line  at  given  angle  of  attack  (measured  relative  to  the 
C  ideal  angle  of  attadc).  The  vortex  lattice  part  of  the  computation 

C  is  identical  to  VLM2D. - 

C  Written  by;  Justin  E.  Kerwin  for  13.04  April  17, 199S - 

C 

C  Modified  by  David  R  Beckett  4/27/95 
C  -<o  accomplish  impmt  by  data  file,  iapotdat 
C  -reaMved  screen  oatpot 

C  -added  statements  to  write  output  data  to  a  data  file,  outputdat 
C 

PARAMETER(  MSD=100.  MSD2=MSD+2,  MCUB=4*(MSD-1),  NCL=1.NCR=1 ) 
PARAME7ER(  PI=3.1413926333«9793E00,  HALF=O.5E00.  RAI>=PI/1«).0  ) 
PARAMETERC  ZERO-O.OEOO.  ONE^l.OEOO.  TWO2.0E00.  ESL=0.0,  ESR=0.0  ) 
DIMENSION  XV(MSD),XC(MSD),A(MSD>1SD)JDX(MSD)3(MSD).  GAMMA(MSD). 

*  WKAREA(MSD),IPIV0T(MSD).G(MSD),GEXACT(MSD)F(MSD), 

*  YT(MSD2).in'(MSD).CPU(MSD2),CPL(MSD2),CUBIC(MCUB) 

c 

C — Opeu  the  input  data  file  as  unit  2 - 

OFEN(2,FILE-’INP(rr.DAr,STATUS-'IINKNOWN',FORM-'FORMATTED') 

C 


C - Compute  vortex  and  control  point  posHious  and  wei^t  functions  -■ 

C 

C - Cammeut  out  ttw  request  for  the  number  of  panels  and  associated  read  statement 

C 

C90  WiaTE(*,'C'  Enter  number  of  paneU  aWax:"44,’ ".$)’)  MSD 
C  READ(V)MC 
C 

C - ^Add  a  READ  statement  that  reads  the  number  of  pands  from  the  inputdat  file 

C 

READa*)MC 
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c 

C  Cwft  cat  tkc  tnt  Im^  that  checks  the  vaMity  ef  the  aaeriker  ef  paaels  siace 

C  thietaeaiarediatheCcade 

C 

C  IF(MCXT5.01LMCGT.MSD)  GO  TO  M 
ISL04T/FLOAT(MC) 

DO100N-l>fC 

XV(NHIALI^<»ffi-CX)S((N-HALF)*DELC)) 
XC(NHIALF*(<M«-<X)S(N*DELC)) 
DX(NH*I*S<»lT(XV(N)*(ONE-XV(N))yFljOAT(MO 
100  cewniNUE 


C— — Cooipute  iailiienoe  oocIBdeot  matrix  A(N>4)  aad  iaveri - 

TC»M»JE/(TWO*H) 

DO1101^1>fC 

DO120M-l>fC 

A(N>I)-T(»»/(XV(M)-XC(N)) 

120  CONTINUE 
110  CONTINUE 

CALL  FACTOR(A.IPIVOT.WKAREA.MC>ISD.IERR) 

C - Solve  for  GAMMA(X)  FC»  NACA  A- «  MEAN  LINE - 

C 

C - Ceauaeat  eat  the  rc<|aests  for  the  ideal  lift  coefficieat  aad  aatlc  of  attack  aad  associated  read 

C  statcascats  aad  read  the  valaes  froai  the  iapatdat  file 
C 

C  WltlTE(*,  W)*) '  Eater  ideal  lift  coefficieat^  * 

C  REAIK*,*)  CL 
READ(V)CL 

C  WRirEC^.XA^)*) '  Eater  Alpha-Alpha(idcai)  (deg)».~ ' 

C  REAIK*.*)  ALPHA 
READ(2,*)  alpha 

CALL  AEIGHr(MC^^C3  J.GEXACT) 

D0130N=1>IC 

B(NXL*B(N>ALPHA*RAD 

F(N)-CL*F(N) 

130  CONTINUE 

CALL  SUBST(A3.GAMMA.IPIV0TXCJ^) 


C — Sum  circulation  over  chord  and  convert  to  vortex  sheet  strength — 

SUMOZERO 

DOldON’clJriC 

SUMG-SUMGKjAMMA(N) 

G(N)-GAMMA(NVDX(N) 

140  CONTINUE 

CLNUM°^rWO*SUMG 

C 

C — Coasawat  oat  the  stateaicat  that  writes  the  computed  total  lift  coefficieat  to  the  screea 
C 

C  WRITE(VC' Computed  total  lift  coefficieat-",F8.4)')CLNUM 
C 

C— opca  the  oatputdat  file  as  uuit  3,  write  the  computed  total  lift  coefficieot  aad  aumber  of  paaels 
C  tothefile 
C 


« 


186 


non 


« 


f 


« 


« 


<mN(S,nLl-'OinTUTJ>Ar3TATUS*'UNKNOWN'^BM-'rORMATTED') 

WBTRa.'CnM)')  CLNUM 

WRma'(IS)')MC 

C — ^Vdocttydnetothickiieai - 

C 

C - CmmmmI  out  Ike  reqacit  ter  tkiekMu/ckerd  ratio  lad  ■mciofnt  read  rtateawat  aad  read  the 

C  valaeftwtiielBpat.dat  me 
C 

C  WKlTKVCAAO'B^tiikkaeai/chardratiou^* 

C  UAD(V)TOC 
KBADa*)TOC 

CALL  NACA66(MC.TOCjaJEJ(C.YT(2)) 

YT(l)-ZERO 

DO200)^l>fC 

UT(N>“ZERO 

DO210M-lJ^ 

UT(N>-in'(N)+TC»»*(YT(M+l)-YT(M)y(XC(N)-XV(M)) 

210  CONTINUE 
200  CONTINUE 

C — Interpolate  thidmess  velocity  to  vortex  points - 

CALL  UGLYDK(MC.NCL.NCIUCC.UT.ESL.ESR,CUBIC) 

CALL  EVALDK(MC>IC.XC^.Ur.CUBIC) 


C — Compute  surftee  velocities:First  get  value  at  leading  edge - 

QU“ALmA*RAD*S<JRT(TWO/RLE) 

C1»U(1)-QU**20NE 

CPL(1)-CPU(1) 

C - ^Ndrt  get  remaining  values  over  the  chord - 

DO300N-l>fC 

FLH-S<JRT(XV(Ny(XV(N)+HALF*RLE)) 
QU-(ONE+UT(N>fHALF*G(N))*FLH 
CPU(N+l>=QU**2-ONE 
<y^ONE+UT(N)-HALF*G<N))*FLH 
CPL(N+l)=QL**2-ONE 
300  CONTINUE 


C — Output  the  results  in  TECFLOT  format - 

<»EN(14TLE-^TJ^.TEC,STATUS==WKNOWJ'ORM==TORMATTED’) 

WRITECl.'CAWZONE' 

WRrrE(l.*(2F10.5)’)  ZERO.CPU(l) 

WRrrE(l,'(2FI0.5)‘)  (XV(N).CPU(N+1).N=1>IC) 

WRTIEfl.XAn’ZONE' 

WRrrE(l.*(2F10.5)')  ZERO.CPL(l) 

WRITE(1.'(2F10.5)')  (XV(N).CPL(N+l),N=iaHC) 

CLOSEd) 


rife  the  prearare  coefficient  to  the  outputdat  file 

WRITECS/CSFIO^O  ZERO,CPU(l),CPL(l) 
WRlTEd.'(3nO^')  (XV(N),CPU(N->-l),CPL(N-l-l),N-l  JMC) 
C 

C—doae  the  iapntdat  aad  outputdat  files 


€ 
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< 


» 


c 

CL08IQ) 

CLOSKS) 

C 

C — write  Me,  irlMlf  I  iif.iBillMriBg  >OKTHANe»cciit>MehaiciDwplrtH  the 

C  tepalMPMtfhKtieMetelie  ready  teterateateeMcattea 

C 

OrKN(4,riLI*-'VlJlflXI»l«*,STATUS-TN]a«OWN',FORM-'FOiUIATT» 

GLOSB(4) 

STOP 

END 


The  origiiial  VLMLE  program  was  designed  for  the  traditional  terminal  interactive 
input  mode.  The  modified  version  substitutes  file  input  for  the  terminal  input.  While  the 
origuial  version  writes  the  computed  total  lift  coefiBcient  to  the  screen  and  generates  a  data 
file  formatted  for  use  with  a  graphics  program,  the  modified  version  writes  the  output  data 
to  a  file  formatted  for  use  by  the  Windows'’^  program.  The  modified  version  also  retains 
the  code  that  produces  the  formatted  graphics  file. 

The  VLMLE.FOR  program  calls  subroutines  that  solve  a  system  of  linear 
equations,  calculate  the  ofl&ets  of  a  NSRDC  modified  NACA  66  with  a  parabolic  tail  and 
a  leading  edge  radius,  and  evaluate  the  camber,  slope,  and  vortex  sheet  strength  of  an 
NACA  a=0.8  mean  line.  These  subroutines  were  not  modified  for  the  purpose  of  this 
thesis  and  are  therefore  not  included  in  this  appendbc. 


» 


i 


i 


» 


ft 


ft/ 


a 
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ft 


« 
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B.4  VLMLE  progrua  littiBga. 

The  VlAfLE  WindowsTM  appttcadoii  inclufles  ten  files.  Listings  for  these  files  are 
induded  with  this  document  as  Ap’^'^ndix  B.4  on  a  3.5  inch,  IBM  PC  formatted,  douUe 
sktod.  Ugh  density  floppy  disk.  The  files  are  saved  in  an  ASCII  text  format  which  can  be 
read  using  a  DOS  text  etfitor  or  any  word  processor  capable  of  reading  DOS  text  files. 
The  complete  files  of  this  and  the  otho*  programs  in  this  thesis  are  not  included  in  the 
written  text  ofthe  thesis  in  the  interest  oflimiting  the  size  of  the  document.  Thispageis 
included  with  the  listings  in  a  file  named  README.TXT. 

The  files  included  on  the  disk  are  described  below. 

VLMLE.C  -contains  the  WinMain,  MainWndProc,  WMCommand_Handler, 

and  dialog  box  functions. 

PAINTGRA.C  -contains  the  paint  jgraphs  function. 

PAINTBOX.C  -contains  the  paint_data_box  function. 

VLMLE.DEF  -the  module  definition  file. 

VLMLE.RC  -contains  definitions  of  the  resources  used  in  the  VLMLE  program. 

HEADER.H  -contains  the  ^define  and  ^include  statements  for  the  VLMLE 

program. 

VLMLE.H  -contains  the  definitions  of  the  Windows™  identifiers. 

README.TXT  -contains  a  copy  of  tlus  page. 

The  following  files  are  not  readable  text  files. 

VLMLE.ICO  -describes  the  icon  used  to  represent  the  program  in  the 

Windows™  Program  Manager. 

VLMLE.PRJ  -the  project  file  read  by  the  compiler. 

NEWVLMLE.PIF  -a  program  information  file  used  by  the  Windows™  environment 
to  control  how  the  FORTRAN  executable  is  run. 
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The  PLL  WinMain,  FramcWndProc,  and  WMConimand_Handler  functions. 
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1. 


C.1  The  PLL  WioMaia,  FremcWadPrac,  aad  WMConiinaiid_Haadlcr  fnnctioiu. 

The  PLL  V^nMain,  FrameWndProc,  and  WMCoininand_Handler  ilinctions  are 
siinilar  to  the  WinMain,  MainWndProc,  and  WMConunand_Handler  functions  in  the 
VLMLE  Windows'^  q>ptication  program.  They  are  different,  however,  due  to  the 
greater  complexity  of  PLL  and  the  i4>pUcation  of  the  Multiple  Documoit  Interfiu:e.  The 
discussion  of  these  functions  will  focus  on  the  new  concepts  necessary  to  understand  the 
Wmdows™  PLL  MDI  qrplication. 

C.1.1  The  PLL  Winmain  function. 

The  WinMain  function  is  the  tmdn  entry  point  for  an  for  a  MDI  application,  just  as 

it  is  for  non-MDI  applications.  The  functions  of  the  WinMain  fiinction  for  PLL  are  to 

register  window  classes  for  the  frame  window  and  the  child  windows,  to  create  and 

display  the  frame  and  child  windows,  to  initialize  a  timer  for  the  frame  window,  to 

determine  the  size  of  the  screen  display  area,  and  to  initiate  the  main  message  loop.  The 

WinMain  function  for  PLL  is  shown  below  with  discussion  interspersed  through  the  code. 

int  PASCAL  WinMain(HINSTANCE  hlnstance,  HINSTANCE  hPrevInstance, 

LPSTR  IpCmdPaiam,  int  nCmdShow) 

{ 

The  WinMain  function  is  declared  in  the  same  way  as  the  functions  described  in  Appendbc 

A  and  ^pendbt  B.  Additional  character  strings  are  declared  here  for  the  purpose  of 

supplying  different  names  for  the  four  different  child  windows. 

char  ProgNameO  "MIT  -  Propeller  Lifling  Line  Program"; 

char  BladeViewnNaineQ  =  "Blade  Viewer"; 

char  WakeVieweiKameO  "Wake  ^ewer"; 
diar  Ou^wtViewerNaineO  ~  "Ouqwt  Viewer"; 

diar  PlotViewerNaineQ  -  "Plot  Viewer”; 

MDICREATESTRUCT  mcs; 

MSG  msg; 

The  MDICREATESTRUCT  is  declared  as  follows; 


^pedef  itnict  tagMDICREATESTRUCT  { 

LPCSTH  Bdat^ 

LPCSm  szTitle; 

HMSTANCEliOmier. 
iot  x; 
iat  y, 
iat  cx; 
int  qr, 

DWCXU)  style; 

LPARAM  IPanun; 

}  MDICREATESTRUCT; 

The  MDICREATESTRUCT  structure  is  used  to  provide  information  about  the  class,  title, 
owner,  location,  and  size  of  a  MDI  child  window. 

ghlnstance  »  hlnstaace; 

if  (thPievInstaiioe) 

WNDCLASSwndclass; 


4 


The  next  several  lines  of  code  initialize  the  WNDCLASS  structure  with  infomuUion  about 
the  frame  window  class  and  each  of  the  child  window  classes,  and  register  each  of  the 
classes  using  the  RegisterClass  iiinction.  This  is  done  in  the  same  way  as  described  in 
Appemfrx  A,  except  that  the  child  windows  are  declared  with  the  window  class  style 
CS_NOCLOSE.  This  prevents  the  child  windows  fr'om  being  closed  using  the  window 
system  menu. 

//set  up  class  uifonnalion  fiir  the  fianie  window  class 


wndclass.lpszGasBNanie 

wndclas8.hifiiWDdProc 

wndclass.d)ClsExtra 

wndclass.cbWndExtra 

WDdclass.hInstanoe 

wiidclass.hlooa 

wndclasahCuisor 

wiidclass.libiBadcground 

wiidclass.lpszMeBu)*hune 

wiidclass.8tyle 

//roister  fiame  class 

Ri^isteiClassC&wiidclass); 


=  ProgNaaie; 

=  (WNDHICX^  FrameWndPiw, 

=  0; 

-0; 

^hlnstance; 

-  LoadIcon(hInsUnce,*PLL  ICON”); 
«L<»dCuisor(NULL,IDC  ARROW); 

=  (HBRUSH)  (COLOR.WINDOW  +  1); 

*”Maui  Menu”; 

-  CS.VREDRAW  |  CSJHREDRAW  |CS_DBLCLICS; 


t  • 


//set  vq>  class  infonnalkm  for  the  blade  window  class 


wndcla8S.lp8zClassNanie 


‘  Blade  ViewerNaroe; 
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wiidcian.4iAiWDdProc 

wiidclait.d>a«Extia 

wiidclaa.cbWiidExtn 

wmfcHawi.hIcoa 

wMlclan.hiCufaor 

wailclMc.lib(Bsdc(niiiiid 

inMiciaR.lpizMeBdNuBe 

wadcian.style 


-  (WNDPROC)  MDIChildBladeWndProc; 

-0; 

"  tixeoi(LOCALHANa£): 

- 1  <WMiTcoo(hlnitnice.-BLADE  ICON*); 
-LoHlCafaoKNUlX.lDC  ARI^W); 

-  (HBRUSH)  (COI  OR  WINDOW  +  I); 

-NIHJU 

CS  VREDRAWICS  HREDRAW|CS  DBLCLICS|CS  NOCLOSE; 


/Ai^ialer  MDI  Made  child  cb» 

RegtetefCtuaCAwiiddan); 


//Kt  op  inibimalkNi  fiir  die  wake  window  class 


wndciass.4»zClassMuiie 

wnddass.l(ifiiWndProc 

wnddas&cbCIsExtn 

wnddass-chWodExm 

wnddass-hloon 

wiidclas8.hCiifsor 

wiidclass.hbrBackgrouiid 

wiidciass.lpszMeauNaiiie 

wiidclass.style 


«  WakeViewerNanie; 

-  (WNDFROQ  MDIChildWNceWndPnx; 

-0; 

-  sizeof(LOCALHANDLE); 

>-LoadIcoii(hInstaiice.*WAKE  ICON*); 
«LoadCuisor(NULL,IDC  ARROW); 

»  (HBRUSH)  (CCnXRt  WINDOW  +  1); 

“NULL; 

=  CS_VREDRAW|CS  HREDRAW|CS  DBLCLKS|CS  NOCLOSE; 


//register  MDI  wake  child  class 

R^isterClass(&wndclass); 


//set  iqi  class  iaformatioa  for  the  output  window  class 


wndclass.lpszCIassNanie 

wndclass-lpfiiWiidProc 

wiidclass.cbClsExtni 

wiidclass.cbWndExtra 

wndclass.hIcoa 

wnddass-hCursor 

wndclass.hbtBachgniuiid 

wiKiclass.lp6zMenuNaine 

wndclass-style 


“  Output^ewerName; 

“  (WNDPROC)  MDIChUdOutputWndProc; 

=  0; 

“  sizeof(LOCALHANDLE); 

“  LoadIcon(hIiistanoe,*Oin7UT  I(X)N*); 
“LoadCursoffNULLvIDC  ARR(>W); 

“  (HBRUSH)  (CCaX»_wiNDOW  +  1); 

“NULL; 

=  CS_VREDRAW  |  CS  HREDRAW  |CS_DBLCLKS|CS  NOCLOSE; 


//router  MDI  output  window  class 
RegisteiClass(&wiidclass); 


//setap  class  infimnation  for  the  plot  viewer  class 


wnddassJpszCnasiName 

wiiddass.lpfiBWndProc 

wnddasrcbClsExtni 

wnddass-chWadExtra 

wiiddas8.hIoon 

wndclass.hCunor 

wnddass.hlHSadcground 

wnddass-lpszMenuNanie 

wndclass.slyle 


“  PlotViewerNaine; 

“  (WNDmOQ  MDIChUdPlotWndPfDc; 

-0; 

“  sizeof(LOCALHANDLE); 

“  LoadIcoa(hInstance,*PLOT  ICXDN*); 
-LoadCiirK)f(NULL.IDC  AWOW); 

“  (HBRUSH)  (COLCXl  V^NDOW  +  1); 

“NULL; 

“  CS_VREDRAW|CS  HREDRAW)CS  DBLCLKSjCS  NOCLOSE; 
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After  the  desses  are  rcgistefed,  the  ftame  window  b  created  usQg  the  CreateWindow 
ctmunand.  A  timer  b  set  such  that  a  TIMER  message  b  sent  to  the  window 

procedure  ft>r  the  ftame  window  (FnuneWndProc)  every  SOO  miObeconds.  Thb  timer  is 
used  to  periodically  dieck  for  the  termination  of  PLL  and  PBD  FORTRAN  executables, 
//create  fiaote  window 

liFnnieWnd  -  CrateWindow(ProgNanie4*ro(NMae, 

WS  OVERLAPPEDWINDOWIWS  CUPCHILDREN. 

CW  USEDEFAULT.CW  USEDEFAULT. 

CW  USEDEFAULT.  CW_USEDEFAULT. 

NULL,  NULL,  hlnataace,  NULL); 


//create  a  timer  fix  determining  how  often  to  chedc  for  FC^TRAN  PLL  nm  completion  will 
SetTinier(liFianieWnd,lD_TIMER,500,NULL); 

//create  the  child  windows 


»  • 


ifihFiameWnd  Aft  hMDICUentWnd) 

{ 

RECT  current_iect; 

HDC  hDC; 

TEXTMETRIC  tm; 


ft" 

V 


A  TEXTMETRIC  stnictute,  tm,  is  declared  here  for  use  in  determining  the  size  of  the 
soventftspby  area  in  terms  of  the  size  of  the  text.  A  TEXTMETRIC  structure  is  dedared 
asfidlows: 

typedefstmctta^IEXlMETRICI  /*tm*/ 
int  tmlieighl; 
int  tmAaoent; 
in*  tmDesoem; 
int  tmlnlemalLeading; 
int  ttHP-myt—n 
int  tmAveOiarWidtli; 
int  tniMaxCharWidth; 
int  tmWeight; 

BYTEtaOndic. 
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BYTE  tartJMkrtiaed; 
BYTBtmStnickOMl: 
BYTE  tafimChir. 
BYTEtnLaUClMr. 

BYTE  lodMMtChar. 

BYTE  taBmkCkar, 

BYTE  toMAAadFanily; 

BYTEtaOHrSel; 

iai  taOmhugi 

int  tnDiptizedA^MCtX; 

iat  tBd>igttizedA4WGtY; 

}TEXTMETRIC. 


A  TEXTMETRIC  structure  contains  infoimation  about  the  size  and  appearance  of  a  font. 
If  the  program  is  successfiil  to  this  point,  the  frame  window  is  displayed  and  eadi  of  the 
child  windows  is  created  and  displayed.  The  child  windows  are  not  created  using  the 
CreateWindow  function,  but  rather  are  created  by  sending  a  WM_MDICREATE  message 
along  with  a  pointer  to  a  property  initialized  MDICREATESTRUCT  structure  to  the 
client  window.  The  client  window  is  the  window  area  inside  the  frame  window.  It  is 
where  the  child  anndows  are  displayed,  and  it  is  controlled  by  the  Windows^  operating 
environment. 

All  fixir  child  windows  are  created  with  the  MDIS_ALLCHILDSTYLES  style 
bits.  The  WS_VSCROLL  st^e  bit  is  specified  for  the  Output  Viewer  window  so  that  it  is 
created  with  a  vertical  scroll  bar. 


ShowWiadowfliFiaiiieWnd,  nCmdSbow); 
l4[*d)aeWiiidow(liFfaiaeWiid); 


mcasiTitle 

incs.szGats 

mcaliOwner 

aKS.x 

mcay 

BKS.CX 

mcaqr 

ncastyle 


»  BladeViewBrNanie; 

>  BladeVicwerNaaM; 

*  ghlutanoe; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT. 

-CW  USEDEFAULT. 

-CW  USEDEFAULT. 

-  MdFs.ALLCHILDSTYLES; 


liBladeWiid-(HWND)SeiidMessage(liMDIClieiitWiid.WM  MDICREATE.O. 

(LONGXLFMDfCREATESTRUCnAnics); 


SkowWiMiowChBiadeWiid.  SW.SHOWNORMAL); 


■CLC^lUe 

-WAeViewerNMw; 

■G&nClaM 

-  WdwViewerNaaK; 

■a.lO«i«r 

■CtJC 

-  CW  USETCFAULT. 

■exy 

-CW  USECffiFAULT. 

■Kt.CX 

-CW  USEIXFAULT; 

■cs.qr 

-CW  USEWFAULT; 

■cxstyie 

-MDIS  ALLCimJ>STYLES; 

hWdceWiid-(llWND)SeiidKlena8e(liMDICIki«Wiid,W^  MDICREATE.O. 

(L(»4G)(LPI^rCREATESTRUCIVbtt»); 


i 


ShowWindowChWakeWnd,  SW.SHOWNORMAL); 


iiics.szTitle 

iiics.caass 

mcLhOwner 

IBGS.X 

iiics.y 

mcLcx 

mcs.^ 

1110.8^ 


»  PkNViewerNaine; 

-  PlotViewerNaiiie; 

=  ghinstanoe; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT; 

-CW~ USEDEFAULT; 
-MdFs  ALLOOLDSTYLES; 


i 


U>k)tWnd>°(HWND)SeiidMessage(hMDiaiettWiid.^  MDICREATC.O. 

(LONG)(Ln^ICREATESTRUCT)ftincs); 


ShowWiiidow(hPlotWiid.  SW_SHOWN(»MAL); 


incs.c^tk 

nics.szGass 

ncxliOwiier 

ncrx 

mcxy 

mcxcx 

Bcrqr 

an.!^ 


=  OutputViewerNaine; 

»  OutputViewerNaiiie; 

-  ghinstanoe; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT; 

-CW  USEDEFAULT; 

-MDFs  ALLCHILDSTYLESiWS  VSCRCXX; 


» 


liOirip«Wiid-(HWND)SeiidMessage(taMDICIieii(Wii(i,WM  MDICREATC.O. 

(LONGXLPMDICREATESTCUCDftmcs); 


SliowWiadow(liOal|MtWiid.  SW.SHOWNORMAL); 


ft 
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The  next  six  lines  of  code  are  used  to  determine  how  may  lines  of  text  fit  into  the 
Ou^Mit  Viewer  duld  window.  This  is  d<me  in  support  offikt  operation  of  the  vertical 
scroD  har  associated  with  that  window.  The  first  Bne  gets  a  handle  to  the  device  context 
fiMT  the  window.  The  next  line  fills  a  TEXTMETRIC  structure  with  informatimi  r^arding 
the  definiH  font  for  the  window.  The  height  ofan  individual  line  oftext  is  calculated  by 
adcfing  the  tmHd^  and  tmExtemalLeading  values  fitrni  the  structure.  The  device 
context  is  ideased  using  the  RdeaseDC  command.  Tlw  GetClientRect  function  is  thoi 
used  to  fin  the  current_rect  RECT  structure  with  coordinates  of  the  upper  left  and  lower 
right  comers  of  the  Output  Viewer  window  client  area.  The  last  line  calculates  the 
integral  nufid)er  of  lines  of  text  that  can  be  di^Iayed  in  the  client  area  of  the  Output 
^ewer  window. 

hDC  -  GetDC(bO«tputWiid); 

GetTextMetrics(hDC,Atm); 

LineHeight  tiii.unHeight  +  tm.tinExtemalLeading; 

ndeaseDC(hOutputWnd.hDQ; 

GcK3kn(Rect(liOut|iutWiid,&cunrent_RCt); 

UiKsInWtiidaw-(intX(curient_rectbottoiii-curieiit_fectU)p)/LiiKileigbt); 

} 

The  main  message  loop  for  a  MDI  application  is  nearly  idoitical  to  that  of  a  non-MDI 
application.  The  difference  is  the  use  of  the  TranslateMDISysAccel  function.  The 
TranslateMDISysAccd  function  translates  child  window  accelerator  keystrokes  and 
returns  a  ixm-zero  value  if  the  function  is  successful.  In  tins  case,  if  the  function  is 
unsuccessful  the  message  is  trandated  and  dispatched  as  usual  by  the  TranslateMessage 
and  DiqpatchMessage  commands. 

while  (GetMesMge(Ainsg,  NULL,  0, 0)) 

{ 

iftlTiansfaX^fDISysAoodOiMDlClieiitWnd,  &in^) 

TianslatAiesiage(Aiiisg); 

Di  nwilf  hMr  ni  rg) . 

) 


} 


Cl^  TlMPLLF^McWadProcAmctioik 

The  PLL  FrameWndProc  is  sbnlsr  to  the  MainWndProc  functions  for  the  VLL 
and  VLMLE  programs.  It  consists  of  a  switch  that  processes  four  dififereitt  types 
messages  and  refers  unprocessed  messages  to  a  de&uh  procedure,  in  this  the  Windows™ 
de&uh  frame  window  procedure.  The  PLL  FrameWndProc  function  is  shown  bdow.  As 
with  the  WinMain  fiincticHi  above,  discussion  is  interspersed  throu^  the  code  of  the 
FrameWndProc  function. 


LRESULT  CALLBACK  _aq)ort  FnuiieWndProc(HWND  hWnd,  UINT  message, 

WPARAM  wPafam,  LPARAM  IPSiam) 


switdiCinessage) 

{ 

caaeWM  CREATE:  { 


The  first  case  is  the  WM_CREATE  case.  A  CUENTCREATESTRUCT 
structure  contams  a  handle  to  the  menu  of  a  MDI  client  window  and  an  unsigned  int^er 
identifier  for  the  first  child  wiridow.  This  case  uses  the  GetMoiu  and  GetSubMenu 
funcfions  to  initialize  the  hWindowMenu  parameto'  and  as«gns  the  value  1000  as  the 
identifier  for  the  first  child  window.  The  GetMenu  flincfion  receives  a  handle  to  a  window 
aiKl  returns  a  handle  to  the  menu  of  the  specified  window.  The  GetSubMenu  function 
receives  a  handle  to  a  menu  a  pop  up  menu  and  an  identifier  for  the  pop  up  menu  and 
returns  a  handle  to  the  qredfied  pop  up  menu.  This  is  done  here  so  that  the  tuunes  of  the 
child  windows  will  be  added  to  the  Window  pull  down  menu  on  the  nuun  menu. 

OJENTCREATESntUCT  ocs;  //structure  oontainiiig  infonnatioa 

//about  a  hfolti|4e  Documeitt 
//  Intetfeoe  dieut  window  menu 
// and  the  window's  first  child 
//window 


/fintialia  the  structure 


200 


i  4 


»  4 


4 


4 


•  4 


i  i 


»  i 


i  4 


oo-hWiadowMem  -  GelSiMifcau(GelMeiM(kWnd).  3); 

axiOtfiKadld- 1000; 

The  WMjCREATE  case  tfien  creates  the  dient  window  using  the  CreateWindow 
fimction,  displays  the  window  using  the  ShowWindow  fiinction,  and  returns  zero  to 
indicate  that  the  message  was  handled  by  the  fimctkm. 

//cieM  the  MDI  dkia  window  and  save  a  handle  to  the  window 

hMDIClkntWnd  -  CreateWindow(*ha3iaJEhn'.NUl^ 

WS  CHILDIWS  CUPOULDRENIWS  VISIBLE. 

O.O.O.O.hWnd.0. 

ghliBtance,  (LPSTR)Aocs); 

//display  the  window 

ShowWindow(hMDICUentWnd,  SW_SHOW); 
return  0; 

} 

The  \VM_COMMAND  case  uses  the  HANDLE_WM__COMMAND  macro  to  refer  menu 
selections  or  dialog  box  messages  to  the  WMCommand_Hand}er  function. 

case  WM.COMMAND :  { 

//this  case  refers  menu  selections  to  the  WMCominand_Handler  fiinction 

return  HANDLE_WM_C(^ifMAND(hWnd.  wParam,  IParam,  WMConiinaiid_Handler); 

} 

case  WMJTIMER ;  { 

iid  j;  //loop  counter 

FILE  *in;  /^winter  to  a  file  structure 

The  WM_TIMER  case  is  processed  every  SOO  milliseconds  in  req^onse  to  a  message  sent 
by  the  timer  associated  with  the  fiame  window.  The  case  first  checks  for  the  existence  of 
a  file  written  by  the  PLL  FORTRAN  executable  to  indicate  that  the  FORTRAN 
executable  was  called  and  completed  its  calculations.  If  the  file  is  found  to  exist,  the  case 


deletes  the  file  and  looks  fix,  reads,  and  deletes  a  series  files  written  by  the  FORTRAN 
executable. 

/^ihe  *alLdne”  lUe  exiali,  then  the  letomi  value  of  aooea  is  0  aad  the  code  ia  the  bnoes  is  exconed 
il[aooeas(*an.dae".0)  — 0)  < 

//ddele  the  alLdne  file  and  read  the  files  written  by  the  fortiaa  exMataUe 
unlink(”all.dne”); 

//plotl  and  plot2.out  contain  the  data  to  be  plotted  Ibr  componenlit  1 A  2. 

//glanertcoe  contains  the  coefficients  used  fix  blade  unloading  if  the 
// loading  is  zero  at  the  tip  and  hidt,  unloaddat  contains  the  infbnnatioo 
// used  fix  Made  unloading  if  the  Made  loading  is  non-zera  at  the  luib 
//  or  tip,  car.dat  contains  the  data  necessary  fix  matching  ear,  ductdr 
// coidains  a  value  fi>r  duct  dfculation  that  is  used  to  update  the 
// value  propoeed  by  the  progiam  in  the  duct  settings  dialog  box 

//if  plotl.out  exists,  open  it,  read  it,  and  then  delete  it  and  set  the  draw_plot_flag 

ifiaccessCpIotl.out*,  0)=^)  { 

in  =  fi)pen(*plotl.out*,  "r*); 

read_plot_file(in); 

fciose(in); 

unlink(*plotl.oaO; 

draw_piot_flag>l; 

} 

//rqteat  the  process  fix  plotl.out 

ifi[aKessCplot2.out”,  0)=0)  { 

in  -  fopoiCplotl.out”,  "rO; 
read_plot_file(in); 
liclose(in); 
ualink(”plot2.out”); 
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The  program  looks  for  plotl.out  ind  |dot2.out,  files  contiumng  date  to  be  plotted  on  the 

Ptot  Viewer  screen  fix  the  first  end  second  components  respectivdy.  After  the  plot  files 

hawe  been  read  the  InvalidateRect  function  is  used  to  cause  the  Output  and  Ptot  Viewer 

windows  to  be  drawn  wifii  the  output  from  the  current  PLL  run. 

//caose  the  ompot  aad  plot  viewer  windows  to  be  paiated 

Invalidatdtec^hOmputWnd.  NULL,  TRUE); 

InvalidatdtectChPlotWDd.  NULL,  TRUE); 

If  the  absrules.out  file  exists,  the  case  declares  two  16-bit  file  handles  and  uses  them  to 
tqipend  the  ABS  Rules  calculation  data  in  the  absmie.out  file  to  the  stress  calculation  data 
in  the  stress.out  file.  The  two  files  are  temporary  data  files  written  by  the  PLL  FORTRAN 
executable. 

IM  absniles.out  exists,  append  the  data  to  stiess.out  and  delete  the  file 
il(accessCabsniles.out”.  0y*°0)  { 

char  *  buffer,  //pointer  to  a  character  buffer 

int  numjbytes;  //number  of  bytes  read  by  _lread 

HFILE  in,  out;  //pointers  to  files 

//allocate  memory  for  reading  the  files  into 

buffer  >  (char  *)  nialloc((max_buf_sz)*sizecd  (char)); 

After  allocating  monoiy  to  store  the  absrule.out  file  data,  the  Jopen  function  is  used  to 
(^>en  the  stress.out  and  absrule.out  files.  The  Jopen  funefion  receives  the  address  of  the 
file  to  open  and  an  access  code  and  returns  a  file  handle.  In  this  case  the  stress.out  file  is 
opened  with  READJVRITE  access  since  data  will  be  written  to  the  file.  The  absrules.out 
file  is  opened  with  READ  access.  The  _Ilsedc  function  reemves  a  file  handle,  a  number  of 
bytes  to  move,  and  a  portion  in  the  file  from  which  to  move.  The  function  moves  the  file 
pointer  to  the  position  spedfied,  in  this  case  the  end  of  the  stress.out  file.  The  _lread 
function  is  then  used  to  read  in  the  data  from  the  absrules.out  file.  The  Iread  function 
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r«cetv«s  a  handle  to  a  file,  a  buffer  for  receiving  the  data,  and  the  length  of  the  buffer.  The 
fimcrion  reads  the  file  into  the  buffer  and  returns  the  total  number  of  bytes  that  were  read 
by  the  fimction.  The  Jwrite  fiinction  is  then  used  to  )4>pend  the  data  in  the  buffer  to  the 
stress.out  file  by  writing  it  at  the  end  of  the  file.  The  Jwrite  fiinction  receives  a  handle  to 
a  file;  a  pointer  to  the  data  to  be  written,  and  the  number  of  bytes  to  write.  The  Jclose 
fiinction  is  then  used  to  close  both  files. 

out  -  _lopen("stiess.out”,  READ_WRITE); 

_l]sedc(out,  OL.  2); 
in  _lopen(''absniles.out'',  READ); 
num_bytes=  _lread(in,  buffer,  inax_buf_sz); 

Jwrite(out,  buffer,  num_bytes); 

_lckMe(m); 

_lclose(out); 

> 

The  program  then  reads  and  deletes  a  series  of  temporary  data  files  vnitten  by  the 
FORTRAN  executable.  Some  of  the  files  are  read  by  functions  written  specifically  for  this 
application  and  the  rest  are  read  by  opening  the  files  with  fopen  fiinction  calls,  reading  the 
formatted  data  with  fscanf  fiinction  calls,  and  closing  the  files  with  fclose  fiinction  calls. 
The  glaueit.coe  file  contmns  infomidtion  about  blades  that  are  unloaded  using  alterations 
to  the  rine  series  coefiBcients  that  describe  the  circulation  distribution.  The  unload.dat  file 
contains  data  for  tlw  other  cases.  The  ear.dat  file  contains  the  landed  area  ratio  for 
each  component.  The  duct.cir  file  contains  a  value  for  duct  circulation.  The  damp.val  file 
contains  a  damping  value  used  during  the  iterative  process  of  calculating  duct  circulation. 

//if  glauertcoe  exists,  open  it,  read  it,  and  then  delete  it 
iffaccessCglauertcoe”,  0>=0)  { 


i 


» 


i 


»  • 


i 


i 


» 


» 
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ill  -  fbpenC'glaiKfLooe'',  *r^; 


Kad_jl«iert_file(in); 

fclowCin); 

unlinkCslsueitooe*); 

) 

/MimloaiLdat  exists,  open  it,  read  it.  and  then  ddete  it 
ii(aooessCunload.dat*.  0)— 0)  { 

in  »  fopen(*unload.dat”,  *r”); 

iead_uiiload_dat_file(in); 

fdose(in); 

unlink(*unload.dat*); 

} 

//if  ear.dat  exists,  open  it,  lead  it,  and  then  delete  it 
if(aeocss(“ear.dat*,  0>=0)  { 

in  *  fopen(*ear.dat*,  *r"); 

//loop  through  the  components  and  read  the  ear  data 
foi(|=0‘j<LDEVj++) 

&canf(in,*«/J^  *.&EARD]); 
fclose(in); 
unlink(*ear.dat*); 

> 

//if  ductcir  exists,  open  H,  read  it,  and  then  delete  it 
if(aooess("ductcir”,  0>— 0)  { 

in  ”  fopenCducLcir”,  "r^; 

fiKanf(in,"^,ftestiinated_(hict_circulation); 

fcloae(in); 

unlink(*ductcir*); 
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//if  dunp-val  exiatt,  open  it,  read  it,  and  then  ddeie  it 
if(aoces<'danip.vaI",  0)^)  { 

in  -  IbpaiCdamp.val''.  "i"); 

Cscanfl[ia.''W.Adaii9inA; 

fblooe(ui); 

unlinkCdamp-val*); 

> 

If  the  optiiii.dat  exists,  the  program  opens  the  file  and  reads  the  data  character  by 
character  into  a  local  character  array  using  the  getc  function.  The  data  is  then  presented 
to  the  user  in  a  message  box.  The  getc  function  receives  a  pointer  to  a  file  structure  and 
returns  the  next  character  fi-om  the  stream  converted  into  an  integer  value. 

//check  for  the  optintdat  file,  which  contains  the  optimization  results  for 
//  the  optimize  ipm  or  diameter  case,  print  the  results  in  a  message  box 
//and  delete  the  file 

if(acoess("optim.dat”,0)  0)  { 

char  striog{240]~””;  //string  for  storing  opt  result 

int  nexicharoO,  //integer  for  reading  data 

//  character  by  character 

iM);  //character  counter 

//open  the  optintdat  file 

in  «  fi)pen("optim.dat”,  *r^; 

/riead  the  string  character  by  character  until  reaching  end  of  file 
nextchar  -  getc(in); 

while(iiextcharl-EOF){ 

itriiigli]«nextdiar. 


iiexiciiv-telc(iii); } 
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< 


« 


i 


« 


in  a  terauaitor  at  the  cad  «f  the  ilriiig 

ahinglil^; 

Z/doae  aad  ddele  the  ofitiia.dM  file 
fcioee(ui); 


iinlinkCaprim.daO; 
Z^pcint  the  icsnlls  if  a  h4esaagA» 


MB_TASKMCH)AL): 


MessacAox(hWiid.  ttring.  "CXTIKOZATION  RESULT. 

MBJCONINF(»MATION  i  MB_(»C  | 


} 


The  case  then  checks  for  the  existence  of  a  file  written  by  the  PBD  FORTRAN  executable 

to  indicate  that  a  PBD  run  is  complete.  If  the  file  is  found  to  exist,  the  case  deletes  the 

file,  sets  a  flag  that  indicates  that  PBD  has  been  run,  and  if  there  is  no  PLL  output,  adjusts 

flags  that  control  the  data  drawn  on  the  Output  and  Plot  Viewers  so  that  the  PBD  data  is 

di^ayed.  The  case  then  returns  a  zero  value  to  indicate  that  the  message  was  handled. 

/M  the  ”pbd.diie"  file  exists,  ddele  it  and  check  if  theie  is  pU  data  to 
// plot,  if  there  is  not  then  set  the  plot_page  to  4  so  the  pbd  plots  will 
// be  dis|dayed  on  the  plot  viewer  and  set  the  output  flag  to  pbdktq  so  the 
//  pbdoutktq  file  will  be  displayed  on  the  output  viewer 

if(aooes8Cpbd.dne”,0)«0)  { 

//delete  the  pbd.dne  file,  aiyust  the  draw  plot  and  ou^Mt  Sags  and  set  the 
//  pbdflag 

unlink("pbd.dne"); 
ifildraw_plot_flag)  pkXjMge^; 
if(aooessC>ninniaiy.oot”,  0)  0)  oulpw_flag  »  pbdktq; 

//set  the  pbd_fiag  to  indicate  that  pbd  has  been  run 
pbd_flag-l; 

> 


i 

t 

i 

rt 
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The  WM_DESTROY  case  handles  requests  made  to  exit  the  program  by  methods  other 
than  the  RlefExh  sdectkm  on  the  main  memi.  It  responds  Iqr  sending  a  IDMJEXTT 
cranmand  to  the  WMCommandHandler  function  and  returning  zero  to  indicate  that  the 
message  was  handled. 

cam  WMJffiSmOY :  { 

/Ahis  cam  bandies  requests  to  exit  the  pragiam  made  by  mediods  other  than 
//the  main  mean 

SeadMessaae(hWnd.WM_C(»4MAND.IDM_EXrr>4AKELONG(0.0)); 

retiiraO; 

> 

} 

//refo  messages  not  handle  by  this  fiame  procedure  to  the  Windows  definilt 
//fiame  procedure 

return  DefFrameProc  (hWnd,  hMDICUentWiid,  message,  ad*atam.  IParam); 

} 

C13  The  PLLWMCommand_Handlcr  function. 

The  WMCommand_Hand]er  fimction  for  PLL  is  voy  similar  to  the  VLMLE  and 
VLL  WNftrommandJHandler  functions.  It  is  diown  below  in  a  series  of  segments,  with 
narrative  ^scussion  of  the  code  interqiersed  throughout  the  segments. 

The  function  consists  mainly  of  a  switch  that  handles  requests  made  1^  the  user 
with  die  mam  menu. 


veMWKfComiMnd  HmtOerOlWND  hWnd,  ird  id,  HWND  hwndCtl,  UIKT  cod^lotify) 
{ 


iwiiciiad) 

{ 

GMeimi_RUN_FBD;  { 

The  IDM_RUN_PBD  case  uses  the  OPEN  omuiKm  dialog  box.  First,  a  series  of 
character  strnigs  used  to  iiutialize  the  dialog  box  and  return  infimnation  such  as  the  title  of 
the  file  adected  by  the  user  and  the  con4>lete  path  ofthe61e  are  initialized.  A  destination 
file,  reDADMIN.NAM,  is  declared.  The  file  returned  by  the  dialog  box  is  cqpied  into 
thisfile.  The  PBD  FORTRAN  executable  is  coded  to  use  this  file  title  as  die  main 
adnunistrative  file. 


//this  case  handles  main  menu  requests  to  nin  MIT^D 

(VENFILENAME  ofii;  //openfilename  stnictiue  used  with 

// GetOpenFileName  Auction 

diar  szFile(2S6]-'V)”,  /Auune  and  location  of  the  Ale 

//to  open 

azFUeHtleClSd),  //name  of  Ale  to  open 

szFilterQ"  //Alter  for  list  box 

•PM)  Files  (•.PBD)V0*.PBD\O*, 

szDstQ  >  TSDADMIN.NAM";  //Ale  to  copy  selected  Ale  into 


The  case  also  declares  two  OFSTRUCT  structures.  An  OFSTRUCT  is  used  to  return 
information  regarding  a  file  that  has  been  opened  1^  a  call  to  the  LZOpenFile  function.  In 
this  instance  a  source  and  a  destination  structure  are  declared. 

OFSIRUCT  ofStrSrc,  //source  and  destimttioo 

openAk 

oCStiDest;  //structures 

HFILE  hCSrd'ile,  //source  and  destination  Ale 

hfl)stFile; 

The  IDM_RIJN_PBD  case  then  deletes  the  previously  existing  CURRPBD.PBD 
and  FBDADMIN.NAM  files.  The  CURRPBD.PBD  file  is  written  by  PLL  tiring  the 
current  settings  in  the  PBD  Settings  and  PBD  Skew/Rake  Setfifigs  and  the  current  PLL 
project  and  is  made  available  to  the  user  in  the  SELECT  PBD  ADMIN  FILE  dialog  box. 
If  a  B-iploie  itqnit  file  exists  fi)r  the  ctmiponent  indicated  by  the  pbdjcomponent  variable 
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and  a  vdodty  file  has  been  written  fin*  the  curreirt  project,  the  write_pbd_adnun_file 

fimction  is  called.  This  fiinctkm  writes  the  CURRPBD.PBD  file. 

//deklB  pie-exiitiat  ciifi|ibd.pbd,  the  pbd  adnia  fik  writtea  by  FIJU  and 
//pbdadiBia  asm,  the  file  that  the  adecled  admin  file  ia  copied  into  fcf 
//oaebyFH) 

imlinkCCURRPBDJ'BD'); 

naliakCTK>ADMIN.NAhr); 


a  pniiect  is  cunently  open  and  Made  and  vdodty  files  are  available, 

// write  a  pbd  admin  file  (cnfipbdpbd) 

if(pn!iect_fla(AA(aooessCcunpbdl.baa".  0)  —  0)AA(pbd_oompoaeiit— 0)ftA 
^ooesa("cunpbd.vd”,  0) »  0))  write_pbdadmin_fileO; 

ifl[pn>ject_llagAA(aooessCciinpbd2.b6n*,  0)  >—  0)AA0)hd-COinponeiit~l)AA 
^tooessCcunpbdvd*.  0) »  0))  write_pbdadinin3le0; 


I 


I 


The  case  then  initializes  the  OPENFILENAME  structure,  ofii.  The  initialized 
variables  include  the  size  of  the  OPENFILENAME  ^ruchire  in  bytes,  the  handle  of  the 
vrindow  that  owns  the  dialog  box,  the  address  of  the  filter  used  for  selecting  files  to 
display  in  the  list  box,  the  address  of  strings  for  lecdving  the  file  title  and  path  and  the  size 
of  those  strings,  the  title  of  the  dialog  box,  and  flags  that  govern  the  operation  of  the 
dialog  box.  The  OFN_FILEMUSTEXIST  flag  causes  the  dialog  box  to  require  that  the 
sdected  file  must  exist.  The  OFN_HIDEREADONLY  flag  hides  the  read  only  check  box. 


/initialize  the  (X^ENFILENAME  parameters 


9 


9 


9 


9 


9 


9  • 


memsetCAofii,  0.  sizeal((X*ENFILENAME)); 


oAi.lStractSize 

oAtliwndOwner 

oAtlpttiiiiter 

ofiLlpatiiile 

ofitnMaxRle 

I  ofiLhMtiiilcrntie 

ofiLlpttilltle 

ofe.nMaxFileTitie 

oAtFlap 


-  8izeo<((X>ENFILENAME); 

-hWnd; 

-szFilter. 

-szFile; 

-sizeo«[szFtle); 

-szFileTitle; 

- ’SELECT  PBD  ADMIN  FILE*; 
-sizeofi;sdile'ntle); 

-CVN  FILEMUSTEXIS11(Xn4  HIDEREADONLY; 


9 


I  The  GetOpeiiFild^atiw  fimction  is  then  used  to  call  the  dialog  box.  Ifthe  dialog  box 

terminates  mccessfiiQy,  the  LZOpoiFile  fimction  is  used  to  open  the  file  returned  by  the 
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(fiak^box.  The  LZOpenFilefiinction  receives  the  address  ofthe  filename  ofthe  file  to  be 
opened,  a  poimer  to  a  OFSTRUCT,  and  an  unsigned  int^er  winch  indicates  the  required 
action.  The  fiinction<^>ensfi>r  reading  or  creates  and  opens  the  file  as  indicated,  fiBs  the 
OFSTRUCT,  and  returns  a  handle  to  the  file.  The  OFSTRUCT  structure  contains 
infiMrmation  mchiding  the  length  of  the  file  in  bytes  and  the  path  of  the  file. 

/itf  die  dialog  is  nsed  mooesdkilly  to  diooae  a  file,  execme  the  code  in  the  braces 
if  (GelOpeiiFild4aiiie(Aofii))  { 

//open  the  source  file 

hfSrdPile  ■■  LZOpeiiFile(o6LlpstrFileTitle,  AofStrSic,  OF_READ); 

//create  the  destination  file 

hfDstFUe  ”  LZOpenFile(szDst.  AdStfOest,  (^_CREATE); 

After  the  source  and  destination  files  are  open,  the  LZCopy  fiinction  is  used  to  copy  the 
file  returned  by  the  (Balog  box  to  PDDADMIN.NAM  and  the  LZCIose  fiinction  is  used  to 
close  both  files.  The  LZCopy  fiinction  receives  handles  to  the  source  and  destination  files 
and  returns  the  size  of  the  destination  file  in  bytes.  The  LZCIose  function  receives  the 
handle  of  the  file  to  be  closed  and  does  not  return  a  value. 

//copy  the  soufoe  file  to  the  destination  file 

LZCopyfhfSnfile,  hfl>stFile); 

//dore  the  files 

LZOoeefhlSRFile); 

LZCIose(hfDstrt]e); 

The  IDM_RUN_PBD  case  then  ddetes  previously  existing  PBD  output  files  using 
the  ddete_files  fiinction  and  calls  the  PBD  FORTRAN  executable  usii^  the  WinExec 
function.  The  TOD  program  information  file,  pbd.pif  causes  the  pbdfi}rt.exe  program  to 
be  run  in  a  window  and  the  SW_SHOWMINIM£QED  flag  causes  the  window  to  be 
created  and  diq[>layed  in  an  iconified  state.  The  case  does  not  wait  for  the  termination  of 


# 


211 


the  FORTRAN  executable,  but  rather  uaes  the  break  statement  to  terminate  the  case 
aDowmg  the  user  to  continue  to  use  the  application  while  the  FORTRAN  executable  runs 
inthebadcground.  The  user  may  also  dect  to  maxiiiiize  the  window  in  which  the 
FORTRAN  executdde  is  runiung  and  observe  the  screen  output  provided.  The  screen 
ou^Mit  from  the  origmal  version  is  left  laf]gely  intact  and  will  look  very  fiuniliar  to 
experienced  PLL  users. 

//dekle  preexistiiv  pbd  outpot  files 

ddele_fiki(pbd_files); 

//ran  the  pbdfbftexe  fortran  pngram  in  an  ioonified  window 

WinExec(^M.|Mr.SW_SHOWMINIMIZED  ); 

} 


break; 

> 

The  IDM_MrrPLLHELP  case  starts  the  Windows™  MIT-PLL  Hdp  program. 
The  ]MX>gram  is  started  udng  the  WinExec  function,  and  di^ayed  in  its  defruih  window 
size  udng  the  SW_SHOW  window  state.  If  the  >^tnExec  function  is  unsuccessful,  it 
returns  a  value  less  than  32.  The  case  checks  the  return  value  of  the  WinExec  function 
and  if  the  value  is  less  than  32,  changes  to  the  Midp  subdirectory  and  attempts  again  to  run 
the  MIT-PLL  Help  program.  If  the  \^inExec  function  is  again  unsuccessful,  an  error 
message  is  printed.  In  either  case  the  directory  is  dianged  back  to  the  original  directory 
using  the  chchr  function.  The  chdir  function  chaises  the  current  working  directmy  to  the 
spedfed  path  and  returns  negative  one  if  unsuccessful  and  0  if  successful. 

am  IDMjmfUIfELP:  { 

//Ohs  case  handles  saaiii  mem  requeit  for  the  hdp  pragraa 

/fif  the  WinExec  ftnctloa  is  WHOGoesdkd,  change  to  the  Mwip  directoiy  and 


i 


ft 


ft 


ft 


ft 


ft 


ft 
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ft 


//tiyitriB 

ii^iniexKriiaiMipiett^ 

cfcdiiOiMip'); 

//if  WiaBMK  ii  afibi  voMoocHfiri.  priM  «■  emr  MMI0B  and  chMifB  btck 
// to  the  orifiaal  diracwy 

if  CMaExeGC1imdpLeMe".SW_SIIOW)^  ( 

MeaarBeqtO^.IOONEXCLAMATieX^ 

Mene(dox(hWed,  *  Aa  enor  oocufod  wfaea  ilartiaf  \ 
dK  Mrr4>LL  Heip  PragniB.*."Ei«ORI*.  MBJCONSTOP  |  MB.CNC  |  MB_TASKMCX>AL); 

} 

chdifC.-); 


biak; 


> 


> 


The  IDMjOPENPROJECT  allows  the  user  to  sdect  and  open  a  pre-existing  PLL 
prefect  file  using  the  OPEN  common  dialog  box.  As  in  the  IDM_RUN_PBD  case, 
diaracter  strings  and  an  OPENFILENAME  structure  are  declared  for  use  with  the  OPEN 


common  dialog  box.  Additionally,  a  character  string,  bufi^,  a  loop  counter,  M,  and  a 
pointer  to  a  file  structure,  *in,  are  declared, 
caae  Il»d_OI>ENFItOJECT:{ 


OPENFILENAME  olh; 

(te  sdnie(256KV0*, 

ad^l^^2S6). 

sdHltetO-  ”110  Files  («.PR])VO«  JIUVO", 
bidfcr(120]; 


//ofeaMamme  itnictuit  used  widi 
// GetOpeaFUeNaiiie  fimedoa 
//nane  and  hwadoo  ofthe  file 
/futoptn 

//aaase  of  file  to  open 
//filler  fin  list  box 
//bidibr  fin  wridiig  output 


iat  H 


//loopoounter 


FILE  *iii; 


//pointer  to  a  file  stractuR 


/fiddaUm  the  OPENFILENAME  panmeteis 
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0.  iizMtCVENFlLEHAME)); 


oALlStniGtSis- 

n  • - - M 

o«i.ipMFyiB- 

oALlpMinkF 

oALaKiMFik- 

ofr-IpkiFikTilk- 

dkiMnFikTitle- 

QAtFlagr- 


kaeaAlOnSNnLENAME); 

hWad; 

BFiMer. 

ciFite; 

abed(nFik); 

idIkTitle; 

saDidtsd'ikTitk); 

OFN.nLEKOJSTCXISTKXV.HIDEREADONLY; 


//if  the  dUog  it  aaed  aaooesrfkilfy  to  chooae  a  lUa.  caecale  the  code  ia  the  bnoes 


if  (GetOpeaFildtaaieCAaAi))  { 


Af^er  the  OPENFILENAME  stnicture  is  initialized,  the  GetOpenFileName  function  is 
to  caO  the  Open  dialog  box.  If  the  function  does  not  return  successfully,  the  bulk  of 
code  is  sidiqted  and  the  case  is  terminated.  If  the  function  does  return  successfully  the 
initialize  fiinction  is  called  and  the  project_flag  variable  is  set  to  indicate  that  a  project  is 
open.  The  initialize  function  is  used  to  rdnitiaiize  global  variables  that  are  initialized  when 
the  MIT-PLL  program  is  started. 

//nm  the  iaitialuae  fiinctioa  to  initialize  the  gtobal  variaUes 
initializeO; 

//set  the  pn9ect_flag  to  indicate  that  a  pngect  is  now  open 
project_flag  >  1; 


The  case  then  opens  the  file  returned  in  the  OPENFILENAME  structure,  writes  the 
filename  to  the  PROJECTFILE  character  string  variable,  reads  the  project  file  by  calling 
the  read_project_file  fiinction  and  closes  the  project  file. 

//open  the  project  file  Ktumed  in  the  CffGNFILENAME  stnicture 
in  >  fiipen(ofii.lpslfme’ntle,"rO; 

//write  the  file  name  into  the  PROJECTFILE  vaiisMe 

sprintfiPROIECimE,  "9i6'.ofii.tpstrFileTitie); 


/head  the  project  file,  and  dose  the  file 


ieidjpiqjectjile(ia); 

fckMeCiB); 

The  n^^QPENPROJECT  case  then  (^>ens  the  input  file  q)ecified  in  the  project 
file.  If  the  mput  file  does  not  esdst  or  fix’  some  other  reason  can  not  be  opened,  a  wanung 
is  printed,  the  project_flag  variable  is  cleared,  and  the  case  is  terminated.  Otherwise,  the 
file  is  read  by  calling  the  read_ii4iut_file  fiinction  and  closed  usiitg  the  fidose 
function. 

//opea  aad  lead  the  input  fik,  print  an  error  message  if  amUe 

if  ((in  *  fiipea(INPU1TILE.  *r^)—  NULL)  { 

Messa8eBeep(MB_ICONBXCLAMATION); 

MessagAox(hWnd,  "Unable  to  open  input  file.*, 

•ERROR!",  MB_I<X)NSTOP  |  MB.CHC  j  MB.TASKMODAL); 

//dear  the  p(oject_flag  to  iadicaie  that  a  project  is  not  open 

pn^.flag  -  0; 

break; 

1 

read_input_filc(in); 

//close  the  iiqiut  file 

fidose(in); 

The  case  now  uses  a  for  statement  to  loop  fitrough  the  components,  where  LDEV  is  an 
int^er  variable  equal  to  one  for  the  single  component  case  and  two  for  the  multiple 
component  case,  and  read  the  blade  and  wake  input  files  specified  in  the  input  file.  If  for 
srnne  reason  any  of  the  input  files  can  not  be  opened,  a  warning  is  displayed  in  a  message 
box,  the  prcject_flag  is  cleared,  and  the  case  is  terminated.  The  readjblade_file  and 
read_wake_file  functions  are  used  to  read  the  blade  and  wake  input  files.  The  minimum 
diord/diameter  vahies  for  eadi  conqxment  are  set  equal  to  the  root  chord/diameter  values 
suppfied  in  the  blade  files  at  the  end  of  the  loop. 


i 


//loop  Oraafli  dM  ooaipaMM  and  read  die  bfaHk  aad  wake  filet 

if  ((ia  -  ftipeii(BLDlNIM*21].  NULL)  { 

/^pfkt  aa  eimr  oKsa^  if  aadble  to  opea  dre  Made  file 

MeaBadd9eep(MB_IG(»CBXCLAMATl(M); 
•priad(bidfcr.*Uadble  to  opea  blade  file  #Sd.*>f-»-l); 
MeanpeBoxChWad,  bufEtf, 

■ERRORI".  MBJCONSTW  |  MB.OK  |  MB.TASKMODAL); 
//dear  the  pipiect.fiag  to  indicate  that  a  pfcgect  ia  not  opea 

pfqiect_fiag  -  0; 

break; 

} 

readjblade_file(in^; 

iclose(ui); 

if  ((ia  -  fi>peii(WKIN(M*21],  •r"))—  NULL)  { 

//jprint  aa  error  measage  if  unaUe  to  open  the  wake  file 

MesaageBeep(MBJ(X)NEX(XAMATION); 
aprintf(bufler.*Unable  to  open  wake  file  inid.”^+l); 
MeasageBox(hWnd.  buflfcr. 

"ERROU",  MBJCX>NST(X>  |  MB_(MC  |  MB.TASKMODAL); 
//dear  the  pntiect_fiag  to  indicate  that  a  prqject  ia  not  open 

prqectJiag^O; 

break; 

} 

read_wafce_fiie(iiUil); 

fidooe(in); 

HUBCHD(M1  -  X(31D(0](M1; 

} 


» 


i 


» 


i 
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i 


» 
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If  the  protect  hu  more  than  (me  component,  the  contraction  ratio  of  the  wake  is 
set  baaed  (m  the  same  logic  as  is  used  in  the  ori^nal  PLL  verson.  This  is  done  for  the 
purpose  of  imtiaUzing  die  manual  contractkm  ratio  in  the  De6uih  Settings  dialog  box  with 
an  ^q>ro|»iate  value. 

//if  there  is  BWie  than  (MW  oooipoiienl.  set  the  oootractioa  naio 
ifCLDEV>l)( 

if(iiiiace_diict— V) 

CX)NRAT- 1.0; 


in&tM(RPM(2])<0.01){ 


if(XDLOC(0]>XDLOC|  1)) 
CONRAT-1.0; 


C»NRAT=“0.83; 


<X)NRAT-0.83; 


Since  a  new  project  is  now  open,  the  pbd_flag  variable  is  cleared  to  indicate  that 
the  current  PLL  project  has  not  yet  been  run  in  PBD.  The  postion  of  the  vertical  stroll 
bar  is  reset  to  the  top  by  setting  the  Scroll_Pos  integer  value  to  zero  and  calling  the 
SetScixdlPos  fonctkm.  The  SetScroUPos  fonction  receives  the  handle  of  the  window  with 
the  scroD  bar  that  is  to  be  poshfoned,  a  flag  that  indicates  in  this  case  that  the  vertical 
SOToll  bar  is  the  bar  that  is  to  be  operated  on,  the  postion  of  the  scroll  box  insde  the  scroll 
rai^  and  a  logical  flag  that  indicates  in  this  case  that  the  scroll  bar  is  to  be  repainted. 

The  fimcticm  causes  the  scroll  box,  also  known  as  the  thumb,  to  be  moved  to  the  indicated 
posHxm  and  causes  the  scroO  bar  to  be  repainted. 


Ml 


I 


//dear  the  pbd  flag  silloe  the  cumiitly  open  protect  hai  not  been  ruB  in  PBO 
pbd.flag  -  0; 

//leaet  the  vertical  scroll  bar  positioa 
Scroll  Poa  *  0; 

SetScrollPM(hOutpiitWnd.  SB.VERT,  ScroU.Poa.  TRUE); 

As  a  final  action,  the  case  uses  the  InvalidateRect  function  to  cause  the  four  child 
windows  to  be  repainted.  This  causes  the  new  blade  and  wake  data  to  be  displayed  and 
causes  the  Output  and  Plot  Viewer  windows  to  be  cleared.  The  case  is  then  terminated. 

//cause  the  screens  to  be  repainted 

lnvalidaleRect(hBladeWnd,  NULL,  TRUE); 

InvaliddeRectChWakeWnd.  NULL,  TRUE); 

InvalkiateRect(hOutputWnd.  NULL,  TRUE); 

InvalidateRectChPlotWnd,  NULL,  ntUE); 

} 

break; 

} 

The  IDM_EDITBLADEWAKE  case  is  identical  in  function  to  the 
IDM_MITPLLHELP  case.  In  tius  case  the  MTT-PLL  Editor  program  is  started  in 
response  to  the  Edit|Biade/Wake  selection  ou  the  main  menu. 

case  IDMJEDITBIADEWAKE :  { 

//this  case  handles  main  menu  request  for  the  edit  program 
/fd  the  WinExec  function  is  unsuccessful,  change  to  the  Vedit  directory  and  try  again 
if(WinExec("pUeditexe*,SW_SHOW)<32){ 
chdirOedit”); 

/flf  WinExec  is  again  unsuccessful,  print  an  error  message  and  change  back 
// to  the  original  directmy 

if  (WiiiExec("l^t.exe*,SW_SHOW)<32)  { 

Messa^Beep(MBJCONEXCXAMATION); 
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I 


» 


MenugAoxChWiid,  *Att  error  oocuied  when  \ 
aiitthiig  the  MIT-FLL  Editor  ProgranL*, 

"ERROir.  MB_ICONST(»>  |  MB.CXC  |  MB.TASKMODAL); 


chdirC..-); 


The  IDM_EDrrPROJECT  checks  the  project  flag  and  prints  a  warning  message  if 
the  user  sdects  EditjProject  Settings  fi’om  the  main  menu  with  no  open  project.  If  a 
project  is  open,  the  case  tests  LDEV  and  calls  the  appropriate  dialog  box  based  on  the 
number  of  components  in  the  project. 


case  IDM_EDITPROJECT ;  { 

DLGFROC  DlgPtoc, 
procedure 

//if  no  project  is  open,  print  a  warning  message  and  terminate  the  case 
if(!ptoject_flag){ 

MessageBeep(MB_ICX>NEXCLAMATION); 


MessageBox(hWnd,  ”A  project  must  be  open  in  order  to  be  edited.”, 
"WARNING!”,  MBJCONSTOP  |  |  MB_TASKMODAL), 


//pointer  to  a  dialog 


//call  the  appropriate  Project  dialog  box,  depending  on  the  number  of  components 
if(LDEV<2){ 

DlgPtoc  ~  (DLGPROC)MakePtocInstaiice((FARPROC)PtojectlDlgPtoc,  ghlnstance); 
DiaktgBoxCghlnstance.  "PROJECTl”,  hWnd,  DlgProc); 


I  i 


*  < 
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IMi^nic  -  qXXffROC)MaiBtfiDdiii>ince((FARJIlOCyw>ject2DlgProc.  ghlMtance); 


IM«lo^ox(ghlw»ii>r».  TROJECn*.  hWnd,  IHifroc); 


FiecProcfiistiiiOBCffARPRiOQPIgProc); 


braric; 


The  IDM_TILE,  IDM_CASCADE,  and  ]DM_ARRANGE  cases  respond  to  the 
^A/IndowfUle,  Wuidow|Cascade,  and  ^^^owjArraiige  Icons  sdecdons  on  the  main  menu. 
Th^  use  the  SendMessage  function  to  send  the  appropriate  message  to  the  MDI  Client 


Window  to  cause  the  child  windows  to  be  tilt  I  or  cascaded,  or  the  iconified  windows  to 


be  arranged. 


case  IDMjnLE :  { 


//send  a  wi«snge  the  the  MDI  client  window  to  tile  the  child  winttows 


SendMessageOiMDICIientWnd,  WM.MDITILE,  0.  OL); 


break; 


caseIDM_CASCADE:{ 


//send  a  message  the  the  MDI  client  window  to  cascade  the  diild  windows 


SendMessagefhMDIClientWnd,  WM.MDICASCADB;  0.  OL); 


caaeII»d_ARRANGE:{ 


//send  a  mesnge  the  the  MDI  dient  window  to  arrange  the  child  window  icons 


SendMessagefhMDIClientWnd.  WM.MDnCONARRANGE,  0.  OL); 


i  I 


•  i 
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The  IDM_RUN  case  responds  to  nuun  menu  FUeiRun  requests.  The 
OPENFILENAME,  character,  HFILE  and  OFSTRUCT  declarations  are  made  to  support 
the  use  of  the  OPEN  common  dialog  box  in  sdecdng  a  non-axisymmetric  stator  file  if 
necessary.  The  DLG9PROC  variable  is  used  for  calling  dialog  boxes  necessary  for 
executing  a  variety  of  runtime  options,  in  addition  to  calling  the  Runtime  Settings  dialog 
box.  A  pointer  to  a  file  structure  is  also  dedared,  as  wdl  as  a  mind>er  of  loop  counters 
and  a  dummy  variable  for  testing  the  value  of  the  drculation  distribution  sine  series 
coeffidents. 


« 


caseIDM_RUN:{ 

//this  case  handles  to  run  MIT'FLL 

DLGntOC  DIgProc;  //pointer  to  a  dialog 

procedure 


(X’CNIILENAME  ofin; 


char  szFile(256]»"\0*, 


8zFileTitle(256]. 

szFUterQx  "STA  Fil«  (*.STA)\0*.STAV0", 
szDstO  =  "STATMLDAT"; 


OTSTRUCT 

open  file 


ofStrSrc, 

ofStiDest; 


HFILE  hfSrcFile, 

handles 


hfl)stFile; 


int  k.  M,  i  J. 

circ_checlrm; 


FILE  *out; 


//openfilename  structure  used  with 
//  GetOpenFileName  function 
//name  and  location  of  the  file 
//to  open 

//name  of  file  to  open 

//filter  for  list  box 

//file  to  copy  selected  file  into 

//source  and  destination 
//structures 

“f/source  and  destination  file 


//loop  counters 

//dummy  integer  for  checking  for 
//  non-zero  circ  distribution 

/^inter  to  a  file  structure 


The  case  first  tests  the  project_flag.  If  no  project  is  open  a  warning  message  is  di^layed 
and  the  case  is  temunated.  If  a  project  is  opoi,  the  Runtime  Settings  dialog  box  is  then 
called  and  the  user  is  allowed  to  sdect  firom  a  variety  of  run  time  options. 


a 
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if(lp«9ectjllag)  { 

MeMvde^O^JCCmEXCLAMATKX^ 

MeMftBacOiWiid,  *A  pngect  muit  be  opoi  in  Older  to  be  niiL”, 

-WARNINGI".  MBJCCmSTOP  |  MB^CXC  |  MB_TASKMCM>AL); 

break;} 

DlgPnc  -  (IMXroOCy>ilaktfnKliiittiice(ffARfltOCyunTuad)lg^^  ghlnsunoe); 
DialotPox^Instaiice,.  "RUNTIME”.  bWi^  Dlifnc); 
FieeProcIiHtaiinr((FARPROCy)i|froc); 

When  the  Runtime  Settings  dialog  box  tmiinates,  the  case  tests  the  run_ok_flag  and 
terminates  the  case  if  the  user  sdected  the  CANCEL  button.  If  the  OK  button  was 
sdected,  the  delete_files  and  unlink  functions  are  used  to  delete  pre-existing  temporary 
datafiles. 

/Mthe  caooel  button  is  sdected  on  the  nintime  dialog  box,  tenninate  the  case 

if(nin_ok_llag)  break; 

//delete  preodsting  temponuy  data  files 

dekte_files(pll_files); 

ttaliidc("cunrpbd.eiT”); 

anlinkCcunpbd.ebsO; 

unlink(”opti>ii.dat”); 


The  case  then  sets  variables  that  control  the  way  data  is  displayed  in  the  Wake, 
Output,  and  Plot  Viewer  windows.  The  ScroUJPos  variable  was  discussed  previously. 
The  component_fiag  variable  determines  which  wake  file  is  diplayed  in  the  Wake  Viewer 
window.  The  draw_j>lot_fiag  variable  determines  >^diether  or  not  plots  will  be  drawn  in 
the  Plot  Viewer  window.  The  output_fiag  variable  determines  wdiich  output  page  is 
diplayed  in  the  Output  Viewer  window.  The  piot_page  flag  variable  determines  which 
pi^  will  be  plotted  in  the  Plot  >^ewer  window,  and  the  piot_component_flag  variable 
determines  whether  component  one  or  two  or  both  will  be  displayed. 

//re-initiaiize  the  flags  tlutt  control  ouQwt  and  plot  viewer  plotting 
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// 


dK  OHtpiit  mmI  plot  viewm  to  be  fedfswB 


4 


ScfoD.Foo-O; 

ooavoaeatJIag-O; 

dnwjilotJtaf-0; 

oolpotjlir^ 

plotjMieH); 

plotjsoapoaentJtafH): 

The  acroD  bar  position  is  then  reset  and  the  Output  ^ewer  and  Plot  Viewer  windows  are 
cleared  since  the  data  displayed  there  is  no  longer  appikable. 

SetScnllPooOiWiid.  SB_VERT.  ScroU.Pot,  TRUE); 

lavsIidrtciRfctChOutputWad,  NULL,  TRUE); 

InvalktodlectOiPlotWnd.  NULL,  TRUE); 

The  n)M_RUN  case  now  tests  the  drcul8tton_optiinization_fiag  variable  to 
determine  if  the  user  has  chosen  to  optimize  drculation.  If  not,  the  case  uses  a  for  loop  to 
check  the  absolute  values  of  the  circulation  distribution  from  the  blade  file(s)  to  ensure 
that  a  non-zero  distribution  has  been  supplied  the  user.  If  the  user  supplied  a  zero 
circulation  distribution  then  the  circuIation_optinuzation_flag  is  set  by  the  program  and  a 
warning  message  is  di^Iayed. 

//if  the  cifculatioa  optimiztfkm  flag  is  not  set,  ensuie  that  a  iKm-zeio 
// cifcttlatioo  distiibiitkm  has  been  input  for  both  conqwneots,  otherwise 
// set  the  flag  and  print  a  warning 

tf(lcucalation_optiniization_flag)  { 

//k)op  through  the  oonqwnents 

//loop  through  the  radii  for  cadi  compooent 

forOcH);k<MRPIN(M]k++) 

//increnient  die  dic_checfc  variable 

if(£dM(XG[k](MD>dei) 

circ_chedpH-, 

if(ldfc_died[){ 
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l^mrfVn<MB_KX)NEX(XAMATION); 


« 


< 


« 


< 


« 


i 


« 


€ 


>irwtrBnir(hWad.  "Blade  diculatioii  input  ant  be  aoB-aero  \ 

or  CifodMioa  OpiiaiziMioa  oMiit  be  Klecled  Ciiailatkm  Optioiizaiioo  now  V 

* 

*WARN1NGI*.  MBJOemSTOP  ( MB.OK  |  MB_TASKM(X>AL): 

} 

> 

The  case  proceeds  to  check  a  variety  of  tun  time  options  and  perform  the 
necessary  actions.  The  first  is  the  option  to  use  the  currait  blade  data  as  input  data.  If 
this  option  is  sdected,  the  program  tests  to  see  if  the  project  is  a  ringed  propeller.  If  it  is, 
a  wanung  message  is  printed  since  this  option  is  not  currently  available  for  ringed 
propdlers. 

//if  the  reset  Made  data  optkn  is  sdected  and  the  propulsor  is  ringed,  print  a  warning 

ifl[nae_currJUade){ 

il(ringed_jiropdler(0]>-»V){ 

MessageBeep(MB_ICONEXCLAMATION); 

MessageiBox(hWnd,  The  reset  blade  data  option  is  not  available  for  \ 
ringed  pnpvlson.  Contiiniiiig  with  normal  run.”, 

"WARNING!”,  MBjeONSTOP  |  MB_OK  |  MB.TASKMODAL); 

} 

} 

The  case  then  calls  the  write_nusc_files  fiinction.  Tins  function  writes  a  number  of  short 
data  files  based  on  the  current  project  settings.  The  files  are  used  to  provide  input  to  the 
PLL  FORTRAN  executable. 

//write  the  misc  output  files  that  provide  input  to  the  fortran  executable 
wiite_iniac_fiiesO; 


t 
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If  the  mer  hu  elected  to  evaluate  a  non-axisyiimetric  stator,  the  STATOR.DAT  file  is 
deleted  if  it  exists  and  the  Select  Stator  File  dialog  box  is  called  to  allow  the  user  to  select 
astatorfile. 


//ifte  cwalaM  aoaaxiqnMMlfk  aueor  sdectkw  is  aide  on  nnliiiie 

// dialog  box.  dlow  Ike  «Mr  to  adect  a  data  file 

igeval.aoaaid.Mlor)  { 

//defcae  the  pn-exutiaa  data  file 

iinliaarSTATOLDAT); 

//initialize  the  OPENFILENAME  pafameten 


nemaettAeAi,  0.  ttzeolICXCNFILENAME)); 


ofli.lStnictSiae 

o&hwndOwiier 

oftL^ntfilter 

ofiLlpel^ile 

oAi.nhfaxFile 

ofiLliMtiFileTitle 

ofitlpitfTitle 

ofiLiiMaxFileTitk 

ofiLFlagi 


-  tizeoe[(X>ENFILENAME); 

-hWnd; 

-szFilter. 

-szFik; 

~  sizeo£[szFile); 

-cFileTitle; 

-  'SELECT  STATOR  FILE'; 

>  $izeofl[szFikTitle); 

-  (X^.FILEMUSTEXISTKH^.HIDEREADONLY; 


If  the  GetOpenFileName  function  returns  successfully,  the  stator  file  selected  by  the  user  is 
coined  into  the  STATOR.DAT  file.  The  eval_nonaxi_stator  variable  is  then  cleared  and 
the  no_ruiitinie_options  fiag  is  set  so  that  there  is  no  run  time  option  selected  the  next 
time  the  Runtime  Settings  dialog  box  is  called. 

//if  the  dialog  is  and  moocofiiUy  to  diooae  a  file,  execute  the  code  in  the  braces 
if  (GetOpeaFilcNanieCAofii))  { 

//open  die  soaioe  file 

hfSicriie  -  LZOpenFikCofiLipstfFileTitle,  AofStrSic.  W.READ); 

//create  the  destination  file 

hlDstFile  -  LZOpenFileCszDst,  AofStrDest,  CX'.CREATE); 

//copy  fin  souice  file  to  die  destination  file 


LZCopyOfiSrcFik;  hfDstFile); 


I  Tnw(hlKi«JOe)- 

LZaoMMDtfile); 


) 


//rmtAenmtbDeoftiom 

eval_Maan_ilalar  «  0; 
ao_iuadiM_apdaM  - 1; 


} 


The  next  runtinie  <^itk>n  handled  is  the  Unload  Coniponent(s)  option.  If  the 
unk>ad_flag  variable  is  set,  the  unIoad.set  file  is  opened  and  written  fisr  use  by  the 
FORTRAN  executable.  A  switch  handles  the  tvw  cases,  single  and  multiple  component 
propulsors. 

/M  the  uaload  flag  is  set,  call  the  appropriate  dialog  box  and  write  a  file  with  either  the  Glauert  coefficient 
// unload  ftacrions  Of  the  hub  and  tip  steepness  exponents  Md  coefficients 

ifl[nnload_flag){ 

//open  the  nnlood  settings  flag 

out «  fbpea(*unlaad.set*.  "w”); 


switd^LWV) 

{ 

caael;{ 

Ifthe  current  |vo^  has  a  single  component,  case  1  is  executed.  Ifthereisno 

image  hub  and  the  component  is  not  ringed  and  there  is  no  zero  gap  duct,  the 

(HAUERTl  dialog  box  is  called.  Tins  aOows  the  user  to  view  the  sine  series  coefficients 

that  describe  the  current  circulation  (fistribution  and  to  alter  them  in  order  to  unload  the 

Uades.  The  data  input  by  the  user  is  then  written  to  the  unload.set  file. 

/flf  dwie  is  no  hnage  hub  and  file  oonponeat  is  not  ringed  and  there  is  no  inuige  duct,  or  there  is  an  inuige 
// duct  and  flw  gap  is  wide  enough,  ffien  call  the  Gtauert  1  dialog  box  and  write  the  unload  fiactions 

if(fiaiagejHibl-V)  StA  (ringedjmpeilefFqKlO  AJt 
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((ianae  dactl-V)  I  ffiauMt  dacC^'OOAA 

~((DDIAM-XD1AMPD  >-  0.000002  )  )))  { 

Dllfioc  «  (DLGnbCX:)ltMci'roclMlttMe((FARPIUX:)GlaiiertlIMfPn^  ghlMtanoe); 
DMlogBnxtghliMtaacc.  "GLAUERTl*.  kWnd.  Digpnc); 
PwrftocIaitaiioc((FARPKOODItfn)c); 

//write  dtt  file 

4iriMf(oat.*%iiya‘'.NGC); 

fiii<HM<NOCU++) 

ikiriiafioia.*Sfia\GC_UNLOAD_FRAqoniD; 

> 

If  the  above  condition  was  not  met,  the  Steepl  dUdog  box  is  called  to  allow  the  user  to 
select  steepness  exponents  with  which  to  unload  the  hub  and/or  tip.  The  hub  and  tip 
unload  percentages  are  then  calculated  using  the  same  scheme  as  the  original  PLL  version 
and  the  Coeffidentl  dialog  box  is  called  in  order  to  allow  the  user  to  sdect  unload 
coeffidents.  The  unload.set  file  is  written  with  the  user  supplied  exponents  and 
coefficients. 


//if  the  oonditioa  above  is  not  met,  then  call  the  S(eq)  1  diak^  box  and  then  the  Coefficient  1  dialog  box 
// and  then  write  the  file 

else( 

DigPioc  «  g)LGPROQMakd*rocInatancc((FARPROC)Steq>lPlgProc.  ghinstance); 
DialogBoxCghInitaiioe.  "STEEPr.  hWnd,  DIgProc); 
FierfrocInitancc((PARPROC)Pltfroc); 

//calculate  the  hdb  and  tip  onload  peioeatages 

Q-(hid>_fadiua(0]-RZ(0]  y(  1.0-RZ|0I); 

iftimage.hah— nr)  { 

OMQSQ-1.0-Q^); 

GNHqO]  -  100.0*aqft(C»«QSQ)nww(OMQSQ.(2*NHC[0]-^^^^^ 

> 

else{ 

P-l.Q-Q; 

OriPSQ-l.O-P^, 

GNHqO)  -  100.0*s(|rt(OMPSQ)*pow(P.(2*NHC|0|-2)); 

) 
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» 


Q  -  ( tlp.iMSiHfO]  •  RZIOI  VC  1 .0  •  RZ(0| ); 

ifffiiaied  pnedkrfOl— VM  i 

((iaar.dact— '¥’)««((  DDIAM  >  XD1AMI0])<  0.000002  ))){ 


P-1.0-Q; 

OMPSQ-1.0-P*P; 

GNTCfO]  -  100.0Hiiit((»flPS(9nM>w(OMPSQX2«hrrc|0]-^^^^ 


OMQSQ- 1.0-Q^, 

GNTC(0]  -  100.0*flqit((»iQSQ)nww(Q.(2*KrC|0)*2)); 

> 

t/aU  the  CCXFFICIENTl  tfalof  box 

DllPioc  -  (DlXgltOQMataProcIiia>iioe((FARro(Xy:oefficieirtlDlgPi^ 
ghlimtence); 

DiilogBox(ihIHMice.  "COEITICIENTl*.  hWnd.  DIgProc); 
FiecProcIiiitiiiot<(FARPROCy)lgProc); 


» 


//write  the  file 


i 


liHfiiitfioirt,''Sd\ilKAaS(bii%fin”.hub_steepness{0]. 
l^_ooclBcicfit(0].  tip.steqmessfO].  tip_coelBcient|0]); 


> 

break; 

) 


i 


The  multiple  component  case  is  analogous  to  the  single  component  case.  For 
loops  are  used  for  the  calculations  and  writing  the  unioad.set  file. 

Gaae2:{ 

/rif  there  is  BO  inage  hbb  and  the  oooqxMieiits  are  not  ringed  and  there  is  no  image  duct,  or  there  is  an 
image 

// duct  «mI  dm  gaps  are  wide  enoi^  then  call  the  Glauert  2  dialog  box  and  write  the  unload  fractions 

ifl[(iniageJnd>l*OOftA(iinged_pnpeller(0|l-nr)  AA 

(ringed jirapeller(lli>-T7ftA((iniage_ductl'-DR 
(Oange  duct— 

(((n)I>jri-XDIAM|OD>-0.000002)ftA 
((1X>IAM-XDIAM(1])>-0.000002)))))  { 

DigPrac  *■  (lXX9ItOC)hlriEd*iocInstanoe((FARPROC)Giauert2DlgProc.  ghlnstance); 
DialoglBoxCghlnilanoe.  "(3J^UERT2',  hWnd,  DI0>toc); 
FtetftDdBStaaoe((FARPROC^gProc); 

4Miati(out.''94dyB-,NGC); 

//wriletefile 


9 


i 


i 
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//if  tie  ooaditim  iriMwe  if  Mt  met,  (hen  cifl  the  Sleep  2  dialog  box  and  thea  the  CodEkkot  2  dialog  box 
// and  ten  wfhe  the  file 


eiae{ 

Dl^ioc  ~  (IHXiPROQMakdProcInetant»((FARPROOSteep2DlgProc.  ghlnstance); 
DialogPox(ghliiitance.  ''S1EEP2*.  hWnd.  DlgPnx;); 
Fietfrorlnitanf»<(FAltPROC)DlgProc); 

//caicntee  die  hub  and  tip  unload  pefoentages 

lbi(W);i<LMV;H-+){ 

Q  -  ( lHib_radhis(i)  •  RZ(iI )/( 1.0  •  R^il ); 

il(iniage_liulr'-nO  { 

<»IQSQ-1.0-Q^. 

GNHCIi]  -  100.0*sqrt(OMQSQ)*pow(OMQSQ.(2*NHC|i]-2)); 

> 

ebe{ 

P-l.O-Q; 

(»(IPSQ-1.0.P*F, 

GNHqi]  -  100.0«sqit((XldPSQ)*pow(P.(2*NHC[iI-2)); 

} 

Q  -  ( lip_iadiuslil  -  RZIil  y(  1.0  -  RZIil ); 

ifi(fingedjMOpdkrft]>--nr)fl 
((image  duct^-TO^Mt 
(( •  XDIAM(i])<  0.000002  )))  { 

P-1.0. Q; 

OMPSQ-1.0.P«P. 

GNTqi]  -  100.0*aipt((»i(PSQ)* 

po«(OMPSQ.(2nnt:ii].2)); 

> 

dse  { 

(XifQSQ-1.0-Q*(^. 
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GKrqi)  -  100.0«^Ft(Oi>«3SQ>* 
poi»(Q.a*wrqih2»; 

> 

> 

Dl^rac  -  (lXX9ftOQ)MiktfracIa«nce((P ARFItOC)Coeflkkiit20lsPn^ 
(UaiiaBoe); 

PtoiniltoittfilMtamrft.  "COEEFFlOEKn*.  hWad.  NfPrac); 
FmPiOGiMlaaoe((FAKPROC)Dl^ioc); 


fe(Ci-0-><LlXVU^) 


liiib_oodlBcieat(i],  ttpjMeqmoilil.  tip_ooeflkieal(iI); 
} 

break; 


> 

> 

After  the  siiigle  and  multiple  component  cases  are  handled,  the  case  clears  the  un]o8d_flag, 

sets  the  no_ruiitime_options  flag,  and  closes  the  unload.set  file. 

//reset  the  nm  time  options  and  close  the  unload  settings  file 

unlood_fiag>0; 
no_nmtime_optioas  >  1; 

fclooe(out); 

) 

The  (^on  to  matdi  an  expanded  area  ratio  is  the  next  option  handled  1^  the 
IDM_RUN  case.  If  the  match_EAR_flag  is  set,  the  tingle  or  multiple  component  EAR 
dialog  bmc  is  cafled  as  appropriate.  The  ear.set  file  is  then  written  and  the 
match_EAR_flag  is  deared. 

/fif  the  user  sdeded  the  anlch  EAR  option,  call  the  appropriate  EAR  dialog 
// box  and  mile  dm  ear.aet  file 

ifl[nialch_EAR_flag){ 

DIgProc  *  (raxa>ROQMalcdProclimance((FARI«(X:)EARlDlgI^ 


» 


i 


» 


i  • 


» 


» 


» 
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> 


DialotBoK(gUMtaMe.  "EARl*.  hWad.  DisPrac); 


Dllfrec  -  (PL(9RC)C)MdkaPradailaBoe((FA]a>IUX^ 
gklnslMn); 

OijJniffcwtglilMlaiice.  *EAR2*.  kWnd.  DlfPrac); 

> 

FlmPiocIail»Me((PARnbOC)l>lgPm 

ODi  >  ftpeaTcwiet*.  ”w*); 

fi>r(H)-j<LI»VJ++) 

4triiitf(oat.''SAn''.EAR(i]); 

//leset  the  ran  time  options  and  doae  the  felting  file 

niatch_EAR_fiag  *  0; 
no_rantinie_optkms  *•  1; 


fclose(oiit); 

> 

If  the  option  to  maximize  thrust  for  a  given  torque  and  determine  ship  speed 
option  is  sdected,  the  maximize._thrust  flag  is  cleared.  If  the  project  is  a  multiple 
component  propulsor  a  warning  mess^e  is  printed  ance  the  option  is  not  available  for 
multiple  component  propulsors. 

/fif  the  maxunize  thrast  fiir  given  toique  and  delennine  ship  speed  option  is 
// diooen,  feset  the  rantime  options  a^  print  a  warning  message  if  there  is 
// more  ttan  one  component 

ifl[niaxiniize_thrast){ 

niaxinii»_thrait  -  0; 

no_rantime_options-  1; 

ifiOLl»BV>l)( 

MesaagAeq)(MBJC(»<iEXaJtMATI(»4); 

Messagdox(hWnd,  The  h^udmizB  Thrast  option  is  not  available  for  \ 
mnltiide  component  propnlson.  Continuing  with  normal  ran.”. 

*WARN1NGI”.  MBJCONSTCV  |  MB_CXC  |  MB.TASKMODAL); 


» 


> 

If  the  uso*  has  dected  to  optinuze  RPM  or  diameter,  a  test  is  made  to  determine  if 

the  project  is  a  ringed  >ropdler  or  if  the  project  has  a  duct.  If  the  project  is  not  a  ringed 

(Kopefler  and  has  no  di^  the  Optimization  Data  dialog  box  is  called  and  the  user  may 

sdect  the  conqxment  to  optinuze.  The  user  must  ^>edfy  a  reqtured  thrust  to  optimize  for 

and  in  the  case  of  a  contra-rotating  propulsor  must  spediy  a  torque  coefiBdent.  The 

OPTIM.DAT  file  is  then  written  to  provide  the  user  supi^ed  data  to  the  FORTR.^ 

executable  and  the  rtm  time  option  is  cleared. 

/^the  user  selected  the  optimue  RFM  or  diameter  option,  call  the  optimization 
>7  dialog  box 

if(optimi7e_ipni|ioptimi7ie_diameter){ 

//the  optimization  procedures  can  not  be  used  for  ringed  or  ducted  propulsors 
if(ringedj)fopeller(0J'='Y'&Ainiage_duct!=V){ 

DlgProc  =»  (DLGPRCX:)MakeProcInstance((FAlU>ROC)OPTIMlZATIONDlgPn)c, 
ghlnstance); 

DialogBoxCghlnstance,  "OPTIMIZATION*,  hWnd,  DlgProc); 
FreeProcInstance((FARPROC)DlgProc); 

out  =  fcpen(*OTTIM.DAr ,  "w"); 

4>riat^oirt,*Sd\a*,opt_omnp); 

^rintfl[aiit,*%(\n*,thnm_re(|); 

4iriiitfl[out,"%f\n”,torq_coeff); 

//reset  the  run  time  options  and  dose  the  data  file 

optiiniz8_rpm  »  0; 
optimize.diameter  0; 
no_rttntime_options  » 1; 

fclose(out); 

> 


» 


» 


i 


» 


» 


» 


» 


i 


» 
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If  the  project  is  a  ringed  or  ducted  propulsor,  a  warning  message  is  written  into  the 
OPTIM.DAT  file  for  display  after  the  run  is  complete  and  the  run  time  option  is  cleared. 
Since  the  options.set  file  was  previously  written  assuming  that  the  RPM  or  diameter 
would  be  optimized,  the  file  is  rewritten  with  no  nmtime  option. 
else{ 

out  *  ftpenCCWTTM.DA'T. 

QMintftout,”Optiiiiizatioa  procedufes  can  not  be  \ 
used  fiv  ringed  or  ducted  propulsors*); 

fck»e(out); 


optiniize_rpni  =  0; 
optinuze_dianieter  =  0; 
oo_nintin)e_options  =  1; 


out  =  fopen(”options.set'',  "w*); 

lprintftout,"99\n"); 

^rintflout,*^^*,  horsepower); 
fprintf(out,*%f\n",  thiust_coefficient); 


fclose(out); 


> 


> 

The  firm!  action  of  the  IDM_RUN  case  is  to  use  the  WinExec  function  to  cause  the 
PLL  FORTRAN  executable  to  be  run  in  an  iconified  wdndow. 

//run  the  fortran  executable  in  an  iconified  window 

WinExec("pU.pir,SW_SHOWMINIMIZED  ); 

break; 

} 
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The  IDM_PIUNTPLLPLOTS  case  is  used  to  re^nd  to  the  Fiie|Print  PLL  Plots 
main  menu  sdection.  Two  temporary  int^er  variables  are  declared.  They  are  used  to 
retain  information  r^arding  the  plot  currently  displayed  in  the  Plot  Viewer  window  since 
the  plot_j>age  and  pIot_component_flag  variables  are  altered  during  the  printing  process. 
A  loop  counter  is  declared  for  the  purpose  of  keeping  track  of  the  number  of  copies 
printed.  PRINTDLG  and  DOCINFO  structures  are  declared  for  use  in  calling  the  Print 
common  dialog  box  and  spedfying  the  details  of  the  document  for  the  Windows'^  Print 
Manager  program.  The  PRINTDLG  and  DOCINFO  structures  and  the  printing  process 
were  described  in  ^poidix  A.3. 


case  IDM_PRINTmj>LOTS ;  { 

int  temp_plot_page, 

temp_plot_component_flag, 

j; 

PRINTDLG  pd; 

DOCINFO  di; 


//copies  of  the  plot_page  and 
//  plot_component_flag  indices 
//loop  counter 

//print  dialog  structure 

//document  information  structure 


i 


The  case  first  tests  the  draw_plot_flag  to  detemune  if  any  PLL  plots  are  available 
for  printing.  If  no  plots  are  available,  a  warning  message  is  displayed  and  the  case  is 
terminated. 

//if  there  is  are  no  PLL  plots  to  print,  print  a  wanting  and  terminate  the  case 
if(ldraw_piot_flag  ){ 


KfessageBeep(MB_ICONEXCLAMATION); 

MessageBoxfhWnd,  There  are  no  PLL  plots  to  print.”, 
•WARNINGf",  MBJCONSTXM*  |  MB_C»C  |  MB.TASKMODAL); 


If  PLL  plots  are  available  for  printing,  the  plot_page  and  plot_component_flag 
values  are  saved  in  the  temporary  integer  variables  that  were  declared  for  that  purpose. 


t 


This  it  done  so  that  th^  can  be  restwed  after  the  prindi^  |m)cess.  Themuhofnot 
restoring  the  values  would  be  to  possibly  alter  the  (riot  disfdayed  in  the  Plot  Viewer 
whidow  by  processing  a  print  request 
//otittiwiiB,  pfoocntbe  imiicit 

limit  copies  of  the  cuneat  plotjpage  sad  piot_ooaviooent_flag  indices  since 
// day  will  be  allefed  during  die  printing  process 

tenpjplot jMge  -  pht_page; 

teinp_plo<_component_flag  -  plot_component_flag; 


The  PRINTDLG  and  DOCINFO  structures  are  initialized  in  the  same  way  as  described  in 
Appendix  A.3.  The  pd.nFromPage  and  pd.nKfinPage  are  set  to  one  and  the  pd.nToPage 
and  pd.nMaxPage  parameters  are  set  to  one  and  four  respectively.  This  limits  the  range  of 
page  nund)ers  available  to  the  user  through  the  Print  common  dialog  box  and  initializes  the 
values  displayed  in  the  box  to  one  and  four  since  PLL  generates  four  plot  pages. 

//set  all  printdig  stnictuie  members  to  zero. 

memsetCApd,  0,  $ize(d(PRINTDLG)); 

/rinitializB  the  document  information  structure 


di.diSize  =  sizeof(DOClNFO); 
di.lpszDocName  =  PLOTS”; 

di.lpszOutput  =  NULL; 


//  Initialize  the  necessary  nUNTDLG  structure  members. 


pdlStructSize 

pd.liwndOwiier 

piLFIags 

pd.nFromPage 

pdnToPage 

pd.nKfinPage 

piLnMaxPage 


-  sizeof(PRINTDLG); 
-hWnd; 


-FD  RETURNDCPD  H1DEPRINTTC»1LE|PD  NOSELECTION; 
”1; 

-4; 

“1; 

-4; 


/rif  the  Prii^lg  fiinction  is  successful,  execute  the  code  in  the  braces 
if  (PrintDlg(Apd)  0)  { 


If  the  PrintDig  fimction  returns  successfully,  a  document  is  started  and  a  for  loop  is 
used  to  cause  the  number  of  copies  requested  by  the  user,  pd.nCopies,  to  be  printed.  The 
case  uses  two  additional  for  loops  embedded  in  each  other  within  the  first  for  loop.  The 
first  causes  all  three  availaUe  plots  for  each  page  in  the  case  of  a  multiple  component 
propulsor  to  be  printed.  The  second  causes  ea^  selected  plot  page  to  be  printed. 

//start  the  output  docanieat 

StartDoc(pd.hDC.Adi); 

//loop  tluoogh  the  nuiUber  of  copies  requested 
lbr(j=0;  j<pd.iiCopies;  j++){ 

//#  of  plots  per  page,  1  for  single  conqwoent  and  3  for  multiple  component  propulsors 
//  calculated  in  the  for  loop  by  1  +  2*(LDEV*1) 

fof(plot_component_flag=0;plot_component_flag<(l-<-2*(LDEV-l)); 

plot_component_flag4-i-){ 

for(plot jpage=pd.nFrDmPage-l;plot_page<pd.nToPage; 
plot_page++){ 

StartPsge(pd.liDC); 

printplot(pd.hDC); 

EndPage(pd.iiDC); 


The  print  process  is  terminated  in  the  same  way  as  described  in  Appendix  A.3. 

The  plot  jMige  and  plot_component_fiag  variables  are  restored  to  their  original  values  and 

the  case  is  terminated. 

EndDoc(pd.hDC); 

DeietdXXpd.liDC); 

} 

if(pd.bDevKfode  l»  NULL)  GlobalFree(pd.liDevKfode); 


i 


i 


i 


» 


g 


» 
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if  (pd.y>cwNuMt  i-  NULL)  CtelMlFite(pd.hDevNuiies): 


/fnmair  die  plol jwfe  aad  flatjaompoaeaLjIt^  iadioes 

wlrtd  |Mfle*IClM  dIoC  PMK 

plot  ooimioiiciii  fl^  tcflipjilot  oompoocfli  flsg^ 
bic^ 

} 


The  IDM_PRINTPBDPLOTS  case  is  used  to  cause  PBD  plots  to  be  printed.  It  is 
very  similar  to  the  IDM_PRINTPLLPLOTS  case.  The  differences  will  be  emphasized  in 
this  discussion. 


caaell  :UNTPBDnX)TS :  { 
int  leiiip_plo(_page, 

j; 

PRINTDLGpd; 

DOCINFOdi; 

FILE  *plot; 

POINT  origiii»{320.240}; 


//copy  of  the  plot_page  index 
//lo^  counter 

/^print  dialog  structure 

//document  information  structure 

//pointer  to  a  file  structure 

//origin  of  plot  in  screen 
//  logical  coordinates 


The  IDM_PRINTPBDPLOTS  case  declares  a  pointer  to  a  FILE  structure  to  be 
used  in  opening  PBD  output  files  that  will  be  drawn  to  the  printer  device  context.  A 
POINT  structure  is  declared  and  initialized.  It  is  used  to  detomine  the  point  in  the  display 
area  that  will  be  used  as  the  origin  of  the  printed  plots.  As  in  the  previous  case,  a 
temporary  variable  is  declared  to  keep  track  of  the  plot  page  currently  displayed  in  the 
Plot  Viewer  window.  Only  one  temporary  variable  is  required  since  the  PBD  plots  do  not 
have  the  option  of  presenting  data  for  the  first,  second,  or  both  components.  Also  as  in 
the  previous  case,  if  there  are  no  PBD  plots  to  print,  a  warning  message  is  printed  and  the 
case  is  terminated. 


//if  there  is  are  no  FBD  ploU  to  print,  print  a  warning  and  terminate  the  case 


mmjiHH 


I 


< 


< 


I 


f 


i 


t 


« 


MtMiteBeepa««Bja»<EXCLAMATiC»0; 

MeMifdoK(hWiidL ‘There  an  ao  PBD  plott  io  priat*. 

■TVARNINGI*.  MBJCCMSTOP  |  MB_OK  |  MB_TASiCM(X>AL); 

bmk; 

} 

/ANherwiae,  piooen  the  reqaeat 

After  a  copy  of  the  plot_page  value  is  saved  the  PRINTDLG  and  DOCINFO 

structures  are  initialized.  In  this  case  the  page  range  is  a  function  of  the  PBD  run  mode. 

The  pd.nToPage  is  set  to  five  since  that  is  the  nunimum  number  of  pages  available.  The 

value  is  incremented  by  one  if  the  PBDOUT.CMV  file  is  found  to  exist.  The 

pd.nMaxPage  value  is  then  set  equal  to  the  pd.nToPage  value. 

//save  a  copy  of  the  current  plotjMge  index  since  it  will  be  altered  during 
//  the  printing  process 

tempjilot jpage  -  idotjnge; 

//set  all  printdig  structure  members  to  zero. 

memsetCApd.  0,  sizeaf[PRINTDLG)); 

//initialize  the  document  infimnation  structure 

di.cbSize  >  sizeof(DOCINFO); 
di.lpszDocNaine  >  "NOT^D  PLOTS”; 
di.lpszOutput  » NULL; 

// Initialize  the  neceaaiy  FfUNlTOXl  structure  members. 

/Af  die  pbdouLcmv  file  exists,  set  plot_page  to  9  and  plot  that  file 

pdlStractSize  •taeaH^MSTDiLG); 
pdlnvariOwner  -hWnd; 

pdJPlap  -PD_REniRNlX:|ro_HiraEPRIPniXX1L^_NOSELECTI(»I; 

pdaFromPage  » 1; 
pd.ahfiifage  >1; 
pdaToPage  » S; 

/fif  the  pbdontcanr  file  does  not  exist,  die  maxiimiffl  number  of  plots  is  5, 
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i^MeMiCpbdoiiLcav*,  0) 0) pdaToPtei  >; 
pAwMiiPtB  ■pd.aToPttr. 

If  Um  PrintDIg  fimctioii  ratunis  wccenfiiOy,  the  document  is  started  and  a  for  loop 
is  again  ined  to  control  the  number  of  copies  prarted.  Another  for  loop  is  used  to  loop 
thm^  the  pages  to  be  plotted.  The  plot_page  value  in  this  case  is  incremented  by  three 
in  this  case  in  order  to  cause  the  four  PLL  plot  pages  to  be  skipped, 
the  PriafDif  tectioe  is  sBooeoAil.  execHte  the  code  IB  the  braces 
if(Priitf>lg(Apd)l-0){ 

//nan  the  ootpol  docuneet 

StaftDoG(pd.hDC,Adi); 

//loop  thfough  the  niaber  of  copies  lequesled 
lbf(i-0;j<pd.iiCo|iies;i4-f)( 

fiM(plotjnteppd.nFfaiiiPade»-3y)iotjMi(e<-Td.nToPa(r»-3;plotjMipe^){ 

Staftfhpe(pd.hDC); 

A  switch  is  used  to  test  the  value  of  the  plot  jpage  variable  and  cause  the 
^rpropriate  files  to  be  drawn  to  the  printer  device  context,  pd.hDC,  that  was  returned  by 
the  Printing  fimction. 

Case  fiwr  corresponds  to  the  plot  of  the  input  blade  grid  and  control  point  net 
The  input  Made  grid  is  contained  in  foe  reDOUT.IBG  file  and  the  B-q>iine  net  is 
cootunedm  foe  PBDOUT.BSN  file.  The  files  are  tested  sequentially  and  iffixuid  to  exist 
folate  opened  with  read  access  using  the  fiqMnfimction.  The  printer  device  context  the 
address  or  the  or^ht  a  pointer  to  the  FILE  structure,  and  a  color  value  index  are  passed 
to  the  paint  jgnqfos  fimetkm  to  cause  the  plots  to  be  foawn  to  the  printer  device  context. 
The  foes  ate  then  dosed. 


I 


cMi4:( 


Hw Cpbdatftg*.0)— 0){ 

pitatjpivfei(pd.kDC.  origMi.  plot.  0); 

•do«(ploO:  } 

iHowoMrpbJotbw*.  0)  —  0)  ( 

plot  -  ive^plMhMLlMa'.  *r^. 
potM.jiiplM(pd.bOC.  orifiii,  plot.  1); 
fcio«(plat);  } 

bnak; 

> 

Cases  five  throi^  nine  ate  handled  in  a  siinilar  manner.  Case  five  plots  the 
chawmg  of  the  output  Made  grid,  centerbody,  transitton  wake,  and  hub  and  duct  images. 
It  uses  the  raDOUTJIUB  file  with  the  paintjnib  fimction,  and  the  PBDOIJT.HDI  and 
FBDOUT.OBG  ffles  widi  the  pamtjgFqvhs  fimctkm. 
c«eS:( 

if(aooei<*pbdoaLh«b*.0)— 0)  { 

plot  -  igpaOibdoeLiHb”.  V); 
paiat_imb(pdJDC,  origia,  plotX 
Wo— (ploft  } 

MlMooiiC'pbdoaLhdi*,  0) — 0)  { 

plot-t»po<pMo-hdl*,Vk 
paiBtjpiphi(pg.hDC,  origia,  plot,  IX 
WooeCpIotX  } 


i 
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MowQplBt);  ) 

hiMk; 

} 

Caie  six  draws  the  cootrol  point  velocity  plot  using  the  PBOOUT.  VCP  file  and  the 
peint_vcp  fimction. 
caK6:{ 

ii(acceMC*fl>doMLvq>*.  0)  —  0)  { 

plot  -  fspeaCpbdouLvq)'.  *r*); 
paiat_vcp(pd.liDC.  origiii,  plot); 
fidoae(plot);  } 

• - *- 

utrwm, 

) 

Case  seven  draws  the  circulation  contour  plot.  It  uses,  depending  on  the  run 
mode,  either  the  PBDOUT.GSP  or  the  PBDOUT.SOL  fimction.  The  paint .^gsp  fimction 
is  used  in  either  case. 
caK7:{ 

//ttw  ctrailalioo  ooMoar  plot  file  augr  be  eidier  a  .tm  or  a  .sol  file 
igaooeHCpbdoetgtp”.  0) — 0)  { 

pkl  -  fiipeiirpbdoaLtip*,  "i^; 

P<dnt_fm(pd-bDC,  origiii.  plot); 
fidoeefplot);  } 
dte  igacceMCpbdoutsol*,  0)  —  0)  < 


plot  *  "i*); 


Oripa,  phty. 

moge^loQ;  } 


> 

Caae  eight  draws  the  radial  drculatkM  distribution  plot.  It  uses,  depending  mi  the 
iuninode,ehherthePBDOUT.RDCordieraDOUT.SGRfiinction.  Thepaint_rdc 
fiinctkm  is  used  in  either  case. 

caMt:{ 

//UienKiialcifCiilstkMidiatributiooflleniaybeddiera.nkora.tgr  file 
ifiaooen(*|ibdoutnic*.  0)  —  0)  { 

plot  -  fi)peii(*pbdoia.nlc”.  ”i^; 
poinLidc^hDC.  plot); 
fcloaeCpIot);  } 

else  ifiaooessCpbdouLsgr*.  0)  0)  { 

plot «  fopenCpbdouLsgr”,  "r^; 
poiiit_Rlc(pd.liDC,  plot); 
fcioseCpIot);  > 

break; 

> 

The  final  case,  case  nine,  prints  the  drcumfinentia]  mean  velocity  plot  using  the 
PBDOUT.CMV  file  and  the  paint_cmv  function. 

caK9:{ 

tfiaocessC^bdooLcmv*,  0)  0)  { 

plot  -  fi)peo("pbdouLciiiv*, 
paiiit_cmv(pd.hDC,  origin,  plot); 


» 
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Eii«>l«B(pd.lOC); 


The  document  is  tenninsted  in  the  mnner  desoftwd  above,  the  jmge  value  is 

restored,  and  the  case  is  tommated. 

EndDocCpd-hDC); 

DdeldXXpd.liDQ; 


if(pd.hDnMode  I- NULL)  (9ol»llYee(^U)evMode); 
if  (pdhDevMuiies  I*  NULL)  GlolMlFfee(pd.liDevNantes); 
//KstoK  the  piot_|Mge  index 

plot jMge  -  teiiip_plot jMge; 


The  IDM_PRINTOUTPUT  case  re^nds  to  nuun  menu  File|Print  Output 
sdectkms.  The  case  dedares  a  PRINTDLG  structure  and  a  DOCINFO  structure  as 
eqwcted.  Loop  counters  and  a  temporary  variable  for  storing  the  value  of  output_flag  are 
declared.  The  int^er  variable  page  is  used  in  testing  to  determine  if  a  particular  page 
should  be  printed.  The  print_flag  array  is  also  used  in  determining  if  a  particular  page 
should  be  (dotted. 


imi.FiUNrounvr :  < 


iat  teapjontpatJIaf. 

ui. 

P*g^’ 


/Ampy  of  the  outputjBag  index 

//lo^oonMen 

//jpage  number 


' 
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FMKinXlpd; 

/^fiat  dialoc  stractwc 

DOaNTOdi; 

//docaroeat  udbrnation  stnictiue 

int  pcint  lhglll]-{1.0. 

//intmer  amy  of  fiags  that 

0,0. 

// indicale  if  a  partmilar 

0.0, 

// file  dmdd  be  printed 

0.0. 

0.0. 

0). 

If  there  is  no  output  to  {Mint,  as  indicated  by  the  absence  of  the  summaiy. out  file,  a 
warning  ineaai^  printed  and  the  case  is  terminated. 

//if  ao  onlpiil  is  available,  print  aa  error  message  and  tennioate  the  case 
if(lpf9iecl_flag|l(aooesi(*su<>iBiafy.out”.  0)  —  0)){ 

MenagAeepCMBJCONEXCLAMATION); 

Mf«ageRox(hWnd.  *A  pngect  aaist  be  open  and  outpia  available  in  order  to  prinL", 
■WARNINGI".  MB_ICC»4STCX>  i  MB_OK  \  MB_TASKMODAL); 

break;  > 

If  there  is  output  to  print,  the  case  proceeds  by  filUng  in  the  print_flag  array.  Two 
(XMiditions  must  be  met  m  order  for  an  output  file  to  be  printed.  The  first  is  that  the  file 
must  exist.  The  prim:_fiag  is  filled  in  based  on  the  existence  of  the  output  files 
ctnreqxmding  to  the  position  m  the  am^.  The  1th  porition  in  the  array,  for  example,  is 
incremented  by  one  fixmi  its  initialized  value  of  zero  if  the  detaill.out  file  is  found  to  exist. 
The  summaiy.out  file  is  assumed  to  exist  since  the  case  was  not  immediatdy  terminated 
based  on  the  initial  test,  and  the  0th  value  is  initialized  as  one. 

//otherwise,  prooeat  the  fopieit 

//set  Ae  priin_flag  frr  each  ootput  file  that  exists  for  this  run 

if(aooeH(*det»ll.ogt”.  0)  0)  print jBagI  1] 

fi(aooeH(*delail2.0Ht*.  0)  —  0)  print_fiagI2i  -H-; 

tfl[aooessCstfCH.oiit*,  0)»0)  print_fiag{3] -H-; 

if(aooess(”dHGiseo*,  0)  — 0)  print.fiarid] -h-; 

if(aooesB('%Hds.OHt”,  0)  — 0)  priat_fiagf5j ++; 


itaoo(MCwMMxLcir*.  0)  — 0)  priat_ftag{6] 

M(iceBM(*BMmdJi»*.  0)>~0)  priitf_itaf(7] 

i9aGOCM(*aoaixi.cap”.  0)>— 0)  priat.fladtl -i-f; 

ittaccBMCBO— ad.lM>*.  0)>~0)  priat_flag(9i -h-; 

ii[aooai(VMloaLklq'.  0)  — 0)  print.fUgllOhH-; 


The  CiM*  then  saves  a  copy  of  the  output_flag  and  initializes  the  PRINTDLG  and 
DOCINFO  structures.  The  ou4Hit_flag  is  an  index  that  iiuUcates  the  file  that  is  to  be 
(fispiayed  in  the  Output  >^ewer  window.  The  copy  is  saved  so  that  the  file  displayed  in 
the  window  wiD  not  be  dianged  the  printing  process. 

//save  a  copy  of  the  output  flag  sinoe  it  will  be  altered  during  the  printing  process 

tenip_output_flag  -  flutput_flag; 

//set  all  of  the  piintdlg  structure  mendwrs  to  zero 

nieniset(Ap(l.  0,  sizeol(PRINTDLG)); 

//initialize  the  document  infonnatioo  structure 

di.cbSi2e  ^  size(rfl[DC)CINFO); 

di.lpszDocName  -  ’MTT-PLL  OUTPUT"; 

di.lpszOutput  NULL; 

//initialize  the  necessary  PRINTDLG  structure  members. 

piLlStructSize  -  sizeof(PRINTDLG); 
pd.hwndOwner  =  hWnd; 

pd.Flap  *  PD_RETURNDC|PD_HIDEPRINTTOFILE|PD_NOSELECTION; 

pd.nFromPage  ~  1; 

The  sum  of  the  values  in  the  print_flag  array  is  equal  to  the  total  number  of  files  available 

for  printiiig.  A  for  loop  is  used  to  sum  the  values  in  the  array  into  the  pd.nToPage 

variable.  The  pd.nToPage  value  is  then  copied  into  the  pd.nMaxpage  variable  to  complete 

the  inhiafization  process  for  the  PRINTDLG  structure. 

//sum  the  prirrijflag  array  to  determirK  how  many  files  are  availaUe  to  print 

fi)r(i*0;i<ll;i++)  pd.nT(d’age+*  print_flag(il; 

pd.nMinPage  ~  1; 
pd.nMaxPage  -  pd.nToPage; 


//if  the  PrittfDlg  fiinction  is  successfiil,  execute  the  code  in  the  braces 


//bcyiB  die  documt 

StutDocCpdhDCJkdi); 

//loop  thraugh  tlK  miaber  of  copies  reqiiMled 

lbr(fH);  j^^aCopiet;  j++){ 

If  the  PrintDIg  function  returns  successfully,  a  document  is  started  and  a  for  loop  is 
used  to  print  the  numbo’  of  copies  requested  by  the  user  The  second  condition  that  must 
be  met  in  order  for  a  file  to  be  printed  is  that  the  user  must  specify  that  it  be  printed  by 
including  it  in  the  print  range.  In  this  case,  the  from  page  and  to  page  values  selected  by 
the  uso*  are  interpreted  as  fi'om  file  and  to  file  values. 

The  temporary  integer  value,  page,  is  set  to  20*0.  The  value  in  page  will  be  used 
to  indicate  the  file  number  corresponding  to  a  particular  output  file. 

//set  the  cunent  page  niiiid)er  to  zero 
pagc-0; 

The  case  now  uses  a  for  loop  to  index  through  the  print_flag  array.  If  the  value  of 
the  print_flag  array  indicates  that  the  file  exists,  page  is  incremented  so  that  the  value  in 
page  corresponds  to  the  page  numbo',  or  file  number,  of  the  file  corresponding  to  the 
print_flag  index. 

//kmp  through  eadi  of  the  ten  possible  output  files 
lbi(i»O;i<10;i++)( 

/fif  the  file  exttts,  increment  the  page  nunaber 
ifi[priat_flag{iD( 


The  case  then  tests  page  to  determine  if  it  is  within  the  range  of  files  the  user 
desires  to  print.  If  it  is,  then  a  page  is  started  with  the  output_flag  set  so  that  the 
^ipropriate  file  will  be  printed.  The  printer  device  context  is  then  passed  to  the  printout 
fiinction  and  the  appropriate  file  is  printed. 

ir^l  the  page  number  is  in  the  nmge  requested  by  the  user,  print  it 

if((page>^.nFroniPage)&&(page<>=pd.nToPage)){ 
output_f]ag  =  i; 

StaitPage(pd.hDC); 

printout(pd.hDC); 

EndPage(pd.hDC); 

> 

} 

} 

} 

After  the  appropriate  number  of  copies  of  the  requested  files  are  printed,  the  case 
is  terminated  in  the  manner  described  above  in  the  IDM_PRINTPLLPLOTS  and 
IDM_PRINTPBDPLOTS  cases. 

//end  the  document 

EndI>oc(pd.hDC); 

DeleteDCCpdhDC); 

} 

if  (pd.hDevMode  1=  NULL)  GlobalFree(pd.hDevMode); 
if  (pd.hDevNanies  1=  NULL)  GlobalFree(pd.hDevNanies); 
output_fIag  =  teinp_output_flag; 

break;  } 

The  IDM_SAVEPROJECT  case  handles  the  FilejSave  Project  main  menu 
selection.  If  a  project  is  currently  open,  it  uses  an  OPENFILENAME  structure  and  the 
GetSavdHleName  fiinctiot  to  call  the  Save  common  dialog  box. 
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n»«_SAVEPltOJECT :  { 


» 


OPENFILENAMEoAi; 
char  azrik(256|. 

sdaieTttle(256]. 

szFilterO-  TW  Filea  (•.  PIU)\D*.PRJVO'; 


//openfilenamc  itnicture  uaed  with 
// GetOpenFUeName  fiinctioa 
//naiM  and  kwatioa  of  the  file 
//to  open 

//name  of  fik  to  open 
//filter  fiv  list  box 


I 


FILE  *pn{iect;  //fmnta  to  a  file  structure 

/fiffiiere  is  no  prc^  open,  print  a  warning  and  tmminate  the  case 
if(!pngect_flag){ 

MessageBeq)(MBJCX)NEXCLAMATION); 

MessageBox(hWnd,  "A  project  must  be  open  in  order  to  be  saved.*, 

■WARNING!",  MBJCONSTOP  |  MB_OK  |  MB_TASKMODAL); 

break;  } 

//otherwise,  process  the  request 


The  case  initializes  the  dialog  box  with  the  name  of  the  currently  open  project  in  case  the 
user  wishes  to  overwrite  the  project  file.  Alternatively,  the  user  may  input  any  acceptable 
DOS  filename. 


//zero  the  openfilename  structure 

memsetCftofii,  0,  sizec^OPENFILENAME)); 

/initialize  the  necessary  C^ENFILENAME  structure  parameters 
strcpy(szFile,  PROJECTFILE); 


ofii.lStructSize 

(^.hwndOwner 

ofii.IpstrFilter 

(^IpstrFile 

ofii.nMaxnie 

ofiLlpstrFileTitle 

(^nMaxFileTitle 

<A.FIags 


-  sizeQf(CH>ENFlLENAME); 

-hWnd; 

“szFilter, 

=*szFile; 

=  sizecdts^ile); 

=  szFileTitle; 

>  8izeofi[szFileTitle); 

“  OFN_OVERWRITEPROMPTIOFN_HIDEREADONLY; 


//if  the  GetSavcFU^ame  fiinctkm  is  successful,  execute  the  code  in  the  braces 


» 
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if  (GelSavtf ikNaiiie(Aofh))  { 


< 


i 


4 


4 


4 


4 


4 


4 


4 


4 


If  the  GetSavemeName  function  returns  successfully,  the  file  sdected  by  the  user 
is  qpened  with  write  access,  the  filename  is  written  to  the  PROJECTFILE  glc^al  character 
array,  and  the  new  project  file  is  written  by  calling  the  writej>roject_file  function.  The 
new  project  file  is  then  closed  and  the  case  is  terminated. 

//opea  the  file  indicited  by  the  user 

pnyect  >*  fopeii(<^lp6tiFileTitk,*V); 

//copy  the  file  title  into  the  PROJECTFILE  string 

sprint£(PROJECTFILE,  "%s*,ofii.lpstrFileTitle); 

/Avrite  the  project  file  by  calling  the  write_project_file  function 
write j>roject_file(pfoject): 

//dose  the  file 

fclose  (project); 

} 

break;  } 

The  next  five  cases  respond  to  the  EditjDefault  Settings,  Edit|Duct  Settings, 
EdhlABS  Strength  Settings,  Edit|PBD  Settings,  and  EditjPBD  Skew/Rake  Settings  main 
menu  sdections.  Each  case  declares  a  pointer  to  a  dialog  procedure,  DlgProc. 

case  IDM_DEFAULTSETTINGS :  { 

DLGPROC  DlgProc,  //pointer  to  a  dialog 

proceAire 

The  IDM_DEFAULTSETnNGS  case  displays  a  warning  message  if  there  is  no 
project  open  and  tominates  the  case.  If  a  project  is  open,  the  case  calls  the  single  or 
multiple  component  Ddault  Settings  dialog  box  based  on  a  test  of  LDEV.  The  case 
terminates  after  the  dialog  box  terminates. 

//if  no  project  is  open,  print  a  warning  message  and  terminate  the  case 


I 


I 


I 


I 


r 


I 


4 


I 
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ifl[lliR!iect_li«i)( 

MfmrBrq>0><BJCCWEXaj^MATl(»^ 

KfeoagdoxOiWiid.  *A  prctiect  muit  be  open  in  order  to  be  edit  Defiuilt  Settings.”, 
”WARNI^Kit*.  MBJOONSTOP  |  MB_OK  |  MB.TASCMODAL); 

break;  } 

//call  die  appropriate  Definilt  Settings  dialog  box,  dqmiding  on  the  number 
//ofconyoneuts 

iflCLraEV<2){ 

DlgProc  -  (DL<gROQMakePioclnstance((PARPROC)DefiuiltlScttiogsDlgProc,  ghinstance); 
DialogBox(ghInstanoe,  DEFAULTISETTINGS”,  hWnd,  DIgPioc); 

} 

elae{ 

DIgPioc  (DLGPROC)MakeProclnstance((FARPROC)Default2Settingd3lgProc,  ghinstance); 
DialogBoxCghInstanoe,  *DEFAULT2SETITNGS*,  hWnd,  DlgProc); 

} 

FieeProcInstanoe((FARPRCX})DlgPioc); 
break;  } 

case  IDM_DUCTSETnNGS :  { 

DLGPROC  DlgProc,  //pointer  to  a  dialog 

procedure 

The  JDMJDUCTSETTTNGS  case  displays  a  warning  message  if  there  is  no 
project  open  or  if  there  is  no  duct  in  the  open  project  and  terminates  the  case.  If  a  ducted 
project  is  open,  the  case  calls  Duct  Settings  dialog  box.  The  case  terminates  after  the 
dialog  box  terminates. 

/fii  no  pngect  is  open  or  there  is  no  duct,  print  a  warning  message  and 
//terminate  the  case 

if(!pr<(!ject_flag|Kimage_(faict 'NOIKunage.duct  — ‘  V)){ 
MessageBeepCMBJCONEXCLAMATION); 

MessageBoxfhWnd.  ”A  project  with  a  duct  must  be  open  in  order  to  edit  the  \ 

Duct  Definilt  Settings.”, 

”WARNING!”,  MBJCONSTCX*  |  MBjCHC  |  MB.TASKMODAL); 


( 


i 


( 


i 


» 


i 


i 
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} 


DigProc  ■■  0MXa*ROCH^MtrfrocliMt«iice(0FARPKOCy>ictSedu>gsPlgProc.  ghlBstanoe); 
DiilogBax(ghInilMice.  "DUCTSEITINGS*.  hWnd.  DIgPioc); 
Fi«tfndiitliiioe((FARPROC^gProc); 

bfcdc;  } 

GMeII»l_ABSRl)LES:{ 

KXiPROC  DlgPrac,  //foinliu  to  a  dialog 

pnoodure 


The  IDM_ABSRULES  case  di^lays  a  warning  message  if  there  is  no  project  open 
and  temunates  the  case.  If  a  project  is  open,  the  case  calls  ABS  Rules  Strength  Settings 
dialog  box.  The  case  terminates  after  the  dialog  box  terminates. 

if(lpn{iect_flag)  { 

MessageBeep(MBJCONEXCLAMATION); 

MeaagBBox(hWiid,  *A  project  must  be  open  in  order  to  edit  the  ABS  Rules  \ 

Strength  Calculation  Settings.*. 

•WARNING!*.  MBJCONSTOP  |  MB_OK  |  MB_TASKMODAL). 
break;  } 


DIgProc  *■  (DLGPROC)MakeProcInstanoe((FARPROC)ABSDIgProc.  ghinstance); 
DialogBox(ghIiistaiioe.  *ABSRULES*.  hWnd,  DigProc); 
FteeProcInstanoe((FARPROC)DlgProc); 


break;  } 


*  The  XDMJEDirPBDSETTINGS  case  is  analogous  to  the  IDM_ABSRULES  case. 

caK  IDM.EDrrPBDSETTINGS :  { 

DLGFROC  DigProc;  //pointer  to  a  dialog 

^  procedure 

iftfproject.flag)  { 

MessagAeqi(MB_ICONEXCLAMATION); 

MesiageBox(hWnd.  *A  project  must  be  open  in  order  to  edit  the  PBD  Settings.*, 

•  *WARNINGI*.  MBJCONSTOP  I  MB_C»C  I  MB.TASKMODAL); 

break;  } 
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Dllfrac  -  (MXjHlOQMaktfrocTMlaiimCCFARPROQPBDScniiigsnigProc.  ghinsttace); 
Dialo|^OK(^aaMiioe.  TBOSETTINGS*.  hWnd.  DlgPnc); 
Frad>fodii«aM»((FAia>IUX:)D^^ 


The  IDM JEDITPBDSKEWRAKE  case  is  analogous  to  the 


IDM  DEFAULTSETTINGS  case. 


ll»«_EDrn>BDSKEWRAKE :  { 


DLC3>ROC  DIgProc; 


/Rioter  to  a  dialog 


if(l|>n!iect_flag)  { 


MessageBeq»(MB_lCX)NEXCLAMAT10N); 


KfessageBox(hWnd,  *A  project  must  be  open  in  order  to  edit  the  PBD  Skew  and  Rake  values.”, 
•WARNING!”,  MBJCONSTOP  |  MB_OK  1  MB_TASKMODAL); 


DIgProc  (DLGPROC)MakeProcInstance((FARPROC)SkewRakelDlgProc.  ghinstance); 
DialogBoxCghlnstance.  ”SKEWRAICE1”,  hWnd,  DIgProc); 
FreeProcInstanoe((FARPROQDIgProc); 


if(LDEV>l){ 


DIgProc  =  (DLGPROQMakeProcInstance((FARPROC)Ske«dtake2DlgProc,  ghinstance); 
DialogBoxCghInstance.  ”SKEWRAKE2”.  hWnd.  DIgProc); 
FretfrocInstance((FAKreOC)DlgProc); 

} 


The  IDM JEDITPITCHROLLYAW  case  responds  to  a  message  sent  by  the 
MDIChOdPIotWndProc  in  response  to  a  right  mouse  button  double  click  on  the  Plot 


Viewer  window  wMle  a  PBD  plot  is  displayed.  It  calls  the  PBD  Plot  Geometry  dialog  box 
and  terminates  after  the  dialog  box  terminates.  The  MDIChildPlotWndProc  function  will 


be  discussed  in  section  C.2.3. 


II»<_EDrn*ITCIlR(XJLYAW :  { 


i  i 
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DLOmOC  tHgPnc; 


//^xiialertoadWog 


DHfWC  -  (DUll>OCy  hfcri¥DrlMWaw((PARFl>OC)PBD^  gklMlaMe): 

DMii#Vw(gyMte«C8.  •FBDtKf.  D^^nc); 

Fk«hodaMMe(^AItFIIOC)D|^rac); 

Iwakt«lrn«rt(lJ»fc>tW»d.  NlflX.  TRlg); 

hmk; 

> 

The  IDM_WRrrEOUTPUT  case  respcmds  to  the  main  menu  File{Wnte  PLL 
Output  File  aelectkML  Ifthere  is  an  open  prefect  and  output  available,  the  case  allows  the 
user  to  sdect  an  ou^nit  filename  using  the  Save  common  dialog  box. 

caaeIIM^_WRrrEOUTPUT :  { 

OPENFILENAMEafe; 
char  szFile(2S6)-‘’«.oulV0*. 
szFileTitle(256|. 

szFUterO-  •OUT  Fiks  (•.OUT)\0*.OUT\D'; 

HFILE  out; 

/Af  no  project  is  open  or  there  are  no  ou^  files,  print  a  warning 
//  and  terminate  the  case 

ifl[(lpn!ject_fiag)||!(aoces8(”suinmaiy.out”.  0)  0)){ 

Mes8ageBeep(MB_ICX)NEXCLAMATION); 

Mi?ssagfBox(hWnd,  "A  project  must  be  open  and  output  available  to  write  an  output  file.”, 
•WARNINGf,  MBJCONSTW  |  MB_(XC  |  MB.TASKMWAL); 

break;  } 

//initialize  the  (VENFILENAME  parameters 

mcmscKAofa,  0,  saeaf(OFENFlLENAME)X 

//  liutialize  the  OPENFILENAME  mentbers 

ofiLlStiuctSize  « sizeid((X’ENFILENAME); 

ofiLhwndOwner  -  hWnd; 

ofitlpstrFilier  » szFilter, 

ofitlpsttFile  ^szFiie; 


//openfilename  structure  used  with 
// GetOpenFileName  fimetion 
//name  and  location  of  the  file 
//to  open 

//name  of  file  to  open 

//BUtt  for  list  box 

//handle  to  a  file 
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-sFikTiik; 

-  On4_OVERWRnEPIU3MP110i^_HlI»READCmLY; 


if  (CrtSwd»HBMMM(infti))  { 


Upon  the  ■icccMftil  return  erf  the  GetStvd^teNme  function,  the  c«se  use*  the  _lcre«t 
fimetioa  to  open  or  crate  the  ffleadected  by  the  user.  The  _Icreet  fiinction  receives  the 
address  ofthe  file  title  and  e  file  attribute.  In  tMs  case,  ifthe  file  already  exists  it  is  opened 
ibr  reading  and  writing  and  truncated  to  zero  length.  Ifthe  file  does  not  exist,  it  is  created 
with  write  access.  The  function  returns  a  handle  to  the  file. 

Ilcmtt  an  output  file 

out  -  _lcieat(oAi.lp8tiFileTitle,  0); 

The  case  then  writes  all  of  the  available  PLL  output  files  into  the  spedfied  file  by  calling 
the  write_ou^t_file  function,  closes  the  file,  and  termiruUes  the  case. 

//call  the  write_output_fik  iiiction  to  write  the  ouQxit  file 
write_output_file(out); 

//close  the  overall  output  file 
_lcloee(out); 


If  there  are  PBD  output  files  available  as  indicated  by  the  pbd_flag  variable,  the 
IDM_WRITEPBDOUTPUT  case  re^nds  to  main  menu  File{Write  PBD  Output  Files 
sdections  by  callmg  the  write_pbd_files  function.  Otherwise,  a  warning  message  is 
di^di^ed  and  the  case  is  termituUed.  The  writejM_files  function  copies  all  of  the 
availaUe  PBD  output  files  into  files  having  the  root  narrie  specified  in  the  PBD  Settings 
dialog  box  and  the  ap|m>priate  extention. 


n»ri_wRrrEFBDOini>ur :  { 
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iWJN) 

•Ik  ( 

lfiiiii^rn^ffCI>ffl_100WEXCLAMAT10W); 

MeMi0d9agiOiWid. ‘Vo  FBD  lil«  Id 

■TVARNINOr.MB  lOCMSTOP  |  MB  OK|MB  TASKM(X>AL); 

) 

b*a*:  } 


The  IDMJEXrr  case  responds  to  main  menu  FUeiExh  selections  and  to  messages 

sent  by  the  WM_DESTROY  case  in  the  FrameWndProc  fiinction.  The  function  deletes 

tenqxHaiy  files  by  passing  the  pQ^files  and  pbdjGles  flags  to  the  ddete_files  function  and 

imfi^duaOy  ddeting  the  files  not  ddeted  by  the  ddete_files  function. 

csKim«_Exrr:{ 

//dekle  the  tenponiy  files 

ddele_files^_filet); 

dekle_fila(|ibd_files); 

aalii*CcuiTl.bl(r); 

uiiliM^ciin2.bid^, 

unliakC^Mniles.set'O; 

iiiiliak("diiclfbR.set"); 

iiiiUaiE(*lBnp.den; 

aiiliakOeaip.iiip'7: 

naliiikOcaip.pri”); 

nnliakCthitloni.aet'O; 

iuiliak(*walncalc.ieO; 

iuiliakCwkaicirc.set"); 

imlidtCVa^i.oat*); 

aiilialc(”oplioiis.seO; 

aaliaiE(”(faBnp.flg‘l; 

uliakCaiitimdM^. 

uiiikniaie.d«7. 

BBliak(*car.dia‘T. 

aaiiakOniaad.<tat*); 

aaliakCiMdetdat'T. 

BaiiakO*dadml.dst*); 

*****)! 

odiakriMsBl*); 

naliiikCllaneitooe'O; 

ualiakT'itZxcl  .ioD*): 

indh*(*d2]B2.i^>'T. 
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uaUritrxttl.up*); 

iiaUak(*x2k2.iip*); 

Hiriii*rc«npbd.ver): 


Hie  ira^JEXrr  case  then  fices  the  timer  for  use  by  other  applications  and  sends  a 

request  to  the  MTindows™  environment  to  temunate  the  program.  The  case  is  then 

terminated. 

//delete  Ac  tiaier 

KillTiiiief(hWBdJD_TlMER); 

PonQuitMeesagetO); 

break;  } 

The  IDM_ABOUT  case  calls  the  About  dialog  box  and  terminates  when  the  dialog 
box  terminates. 

case  IDM_ABOUT :  { 

//  this  handles  the  About  dialog  box 
DLGFROCDIgProc, 

DlgProc  ■■  (DLGntCXr)MakeProcIiistance((FARntOC)ABC)UTDIgProc,  ghinstance); 
DialogBoxCghlnstaiice,  "ABOUT",  hWnd,  DlgProc); 

Fred*roclnstance((FARPROC)DlgProc); 

break; 


Messages  not  handled  by  a  prior  case  in  tlw  switch  are  referred  to  the  defiuilt 
li^^ndows™  fiame  procedure  by  calling  the  DefFrameProc  function.  The  DefiFrameProc 
function  receives  a  handle  to  the  frame  window,  a  handle  to  the  client  window,  and 
unsigned  int^er  that  spedfies  the  message  being  sent,  and  16  and  32  bit  pa'ameters  with 
addhkNial  infrirmation  that  is  a  function  of  the  message.  The  function  processes  the 
message  and  returns  the  processing  result,  which  is  also  a  function  of  the  message  that  is 
sent. 


» 
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APPENDIX  C2 


The  PLL  MDI  Child  Window  Procedure  functions. 
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C2  The  FLLMDI  Chid  Winder  FraccdarefMctiou. 

ChUd  windows  in  s  MDI  ^ipBcadon  receive  messages  in  the  same  way  as  their 
non-MDI  application  counterparts.  The  messa^  are  not  handled  by  the  FrameWndProc 
but  rather  by  individual  diild  window  procedures.  Normally  there  is  one  child  window 
procedure  for  each  type  of  child  window  in  a  MDI  appUcatkm,  and  this  is  the  case  in  PLL. 
The  MDIChildBladeWndProc,  MDIChildWakeWndProc,  MDIChildOutputWndProc,  and 
MDIChOdPlotWndProc  fonctions  will  be  described  in  this  appendix. 

C.2.1  The  PLL  MDIChildBladcWndProc  and  MDIChUdWakeWndProc  functions. 

The  declarations  of  the  MDIChildBIadeWndProc  and  MDIChUdWakeWndProc 
functions  are  the  same  as  those  of  the  MainWndProc  functions  described  in  Appendices  A 
and  B  and  of  the  FrameWndProc  function  described  in  section  C.  1 .2.  Their  operation  is 
also  quite  smUar.  Both  of  the  chUd  window  procedures  use  switches  to  respond  to 
messages  passed  by  the  Windows™  environment  as  a  result  of  user  action. 

Both  the  MDIChUdBIadeWndProc  function  and  the  MDIChUdWakeWndProc 
function  respond  to  WM_PAINT  commands.  The  MDIChUdBIadeWndProc  function 
responds  simply  by  caUing  the  paintbld  function  and  returning  zero,  indicating  that  the 
message  was  handled.  The  paintbld  function  recdves  the  handle  to  the  Blade  Viewer 
window  and  draws  the  blade  and  ring  parameter  plots  on  the  window.  Messages  other 
than  WM_PAINT  that  are  received  by  the  Blade  Viewer  window  are  referred  to  the 
defouH  MDI  ChUd  window  procedure,  DefMDIChUdProc. 

LKESULT  CALLBACK  jexport  MDIChildBladeWiidPioc(HWND  bWnd,  UINT  message,  WPARAM 
v^aiam,  LPARAM  IPanim) 

{ 

switch  (message) 

{ 

caseWM_PAINT;{ 

//respond  to  WM_PA1NT  messages  by  calling  the  painAld  function 


piiiaAkKhWad); 

KturaO; 

> 

) 

//ider  McmfH  not  Inadled  abow  to  the  deCMih  windows  MDl  cluld  wiodow  procedure 
retuni  DcAifDIChildPfoc(hWnd,  mcwege.  nAnoL  IPwam); 

> 

The  re^nse  of  the  MDIChildWakeWndProc  function  to  a  WM_PA1NT  message 
is  the  same  as  the  MDIChiidBladeWndProc  function  except  that  the  paint_wake  function 
is  called  instead  of  the  paintjbld  function.  The  paint_wake  function  receives  the  handle  to 
the  Wake  Viewer  window  and  draws  the  project  wake  profile  on  the  window.  If  the 
project  has  two  components,  the  user  may  toggle  between  the  wake  profiles  for  the  first 
and  second  components  by  double  clicking  the  left  mouse  button  while  the  cursor  is  on  the 
Wake  Viewer  window.  This  action  causes  a  WM_LBlJTTONDBLCLK  message  to  be 
sent  to  the  MDIChildWakeWndProc  function. 

LRESULT  CALUBACK  jexpott  I^iaUldWakeWiKlProc(HWND  hWnd,  UINT  message,  WPARAM 
wParam,  LPARAM  IPanim) 

{ 

switch  (message) 

{ 

case  WM_LBinTONDBLCLK :  { 

Upon  receipt  of  a  WM_LBUTTONDBLCLK  message,  the  case  tests  the  LDEV 
integer  variable  to  determine  if  the  project  is  a  single  component  project.  If  the  current 
project  has  only  one  component  the  case  is  terminated  immediately  by  returning  zero, 
indicating  to  the  Windows™  environment  that  the  case  was  handled, 
there  is  (»ly  one  component  terminate  the  case 
if(LDEV=l)  return  0; 


» 
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If  there  is  more  than  one  component,  a  switch  is  used  to  toggle  the 
component_flag  integer  variable  from  zero  to  one  or  one  to  zero  depending  on  its  initial 
state.  The  component_flag  variable  value  controls  the  selection  of  the  wake  profile  that 
will  be  drawn  by  the  paint_wake  function.  After  this  is  done,  the  Invalidatetvv.ct  function 
is  used  to  cause  the  Wake  Viewer  window  to  be  redrawn  since  the  data  to  be  displayed  on 
the  screen  has  changed.  A  value  of  zero  is  then  returned  to  indicate  that  the  case  has  been 
handled. 

//if  there  is  more  than  one  component,  toggle  the  component_flag  and  repaint  the  screen 

switch(oomponent_flag) 

{ 

case  0;  {  oomponent_flag=l;  break;  } 
case  1:  {  component_flag=0;  break;  } 

> 

InvalidateRect(hWnd,  NULL,  TRUE); 
return  0; 


caseWM_PAINT:  { 

//respond  to  WM_PAINT  messages  by  calling  the  paintwake  function 


paintwake(hWnd); 
return  0; 


As  in  the  case  of  the  MDIChildBladeWndProc  function,  if  a  message  is  not 

handled  by  the  switch,  it  is  referred  to  the  default  MDI  Child  window  procedure. 

//refer  messages  not  handled  above  to  the  default  wiiKlows  MDI  child  window 
//procedure 

return  DefMDIQiildProc(hWnd,  message,  wParam,  IParam); 
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C.2.2  The  PLL  MDIChildOutputWndProc  functioii. 

The  declaration  and  operation  of  the  MDIChildOutputWndProc  are  similar  to  the 
declaration  and  operation  of  the  functions  described  in  section  C.2. 1  above.  It  is, 
however,  a  more  complicated  function  due  to  the  addition  of  three  cases  in  the  switch  and 
the  large  number  of  different  output  files  that  may  be  selected  for  viewing. 

LRESULT  CALLBACK  jacport  MDIChildOutpittWndPiocfHWh^  hWnd,  UINT  message.  WPARAM 
wParam,  LPARAM  IPanim) 

{ 

switdi  (message) 

{ 

The  first  message  handled  in  the  MDIChildOutputWndProc  function  is  the 
WM_LBUTTONDBLCLK  message.  Double  clicking  the  left  mouse  button  on  the 
CXitput  Viewer  window  causes  the  display  to  index  to  the  next  available  file.  If  there  are 
no  output  files  to  display,  as  indicated  by  the  absence  of  the  summary.out  file,  the  case 
returns  zero  to  indicate  that  the  message  was  handled  and  takes  no  further  action. 

case  WM_LBUTTONDBLCLK :  { 

//if  there  is  no  summaiy.out  file  there  is  no  reason  to  change  the  output_flag 
//  so  just  terminate  the  case 

if(aocess(”summary.out",  0)  !=  0) 

return  0; 

If  there  are  output  files  to  display,  the  case  first  resets  the  scroll  bar  position  to  the 

top  of  the  page  so  that  the  next  file  in  the  sequence  ^11  be  displayed  starting  at  the  top. 

//set  Scroll_Pos  to  zero  so  the  new  page  will  print  at  the  top  of  the  page 
//  and  iqxiate  the  scroll  bar  position 

Scroll_Pos  “  0; 

SetScTollPos(hWnd.  SB_VERT.  ScroU.Pos,  TRUE); 
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Next,  a  switch  is  employed  to  detomine  whidi  file  is  to  be  di^Iayed  based  on 
wduch  file  is  currently  disfriayed.  The  existing  files  are  displayed  in  the  following  order. 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 

10. 
11. 


sununaiy.out. 

detail!. out. 

detail2.out. 

stress.out. 

duct.geo. 

fiuds.out. 

nonaxi.cir. 

nonaxi.fi>r. 

nonaxi.cnip. 

nonaxi.har. 

pbdout.ktq. 


When  the  output_flag  value  has  been  indexed,  the  InvalidateRect  function  is  used  to  cause 

the  screen  to  be  repainted  and  the  case  is  terminated. 

swiicfa(ou(put  flag) 

{ 

case  summaiy;  {  oiitput_flag  =  detaUedl;  bre^;  } 

//skip  over  detailed?  if  there  is  only  one  component 

case  detailed! ;  { iflLDEV=l)  ouq)ut_flag  abs_niles_calc; 

else  output_flag  >  detailed?; 

break; } 

case  detailed?:  {  output_flag  ^  abs_rules_calc;  break;  > 
case  ab6_niles_calc:  { 

//gototheductgeomeUycaseifthereisaductgeofile 
iflaccessCductgoo”,  0)  =  0) 

ouqwt.flag  -  duct.^geoaietiy; 

//go  to  the  downstream  velocities  case  if  there  is  a  &rds.oot  file 
else 

iflacoessC'fitfds.out”,  0) »  0) 

ouqmt.flag  ~  downstre8m_velocities; 

//go  to  the  non_axi^m_cir  case  if  there  is  a  oonaxi.cir  file 
dse 

tflacoessCnonaxi.cir".  0)  —  0) 

ou4)ut_flag  »  non_axiqrm_cir, 
dse 

//gotothepbdktqcaseifthereisapbdoutktqfileandthepbd  flag  is  set 

if((pbd_flag)ftA  ~ 
acoes^pbdoutktq”,  0)  0) 
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outputflag  -  pbdktq; 

//oAerwiae  go  iMidt  to  the  nunmuy  cue 

dee 

output.flag  -  sumnuuy; 

bleak;} 

ceaeduct jBeonetiy:  { 

//go  to  the  downatieam  vdoctte  caae  if  then  ia  a  fiuda.out  file 
if(aooeiaCfiuda.oiit*,  0)  —  0) 

oii4Nit_fiag  -  <towiiatnaia_vdodtie8; 

//go  to  the  iioa_axiayiii_dr  caae  if  then  is  a  iioiiaxi.cir  file 
elae 

ifi[aooess(*iioiiaxi.cir*.  0}  =  0) 

output_fiag  -  noiijudsyin_cir, 
dae 

//go  to  the  pbdktq  case  if  then  is  a  pbdouLktq  file  and  the  pbd_flag  is  sd 

ifi[(pbd_flag)AAacoess(*pbdoutktq*.  0) »»  0) 
oiitptit_flag  -  pbdktq; 

//otherwise  go  bade  to  the  summaiy  case 

dse 

output^flag  =  summaiy; 

bnak;} 

case  dowiistnam_vdodties:{ 

//go  to  the  non_axisym_cir  case  if  then  is  a  nonaxi.cir  file 
if(aooessCnonaxi.cir*,  0)  =  0) 

ouqwt.flag  =  non_axisym_cir, 
dse 

//go  to  the  pbdktq  case  if  then  is  a  pbdoutktq  file  and  the  pbd_flag  is  sd 
if((pbd_flag)ftAaaxss(*pbdouLktq”,  0)  =  0) 
output_flag  =  pbdktq; 

//otherwise  go  back  to  the  summaiy  case 
dse 

output_fiag  =  summary; 

break;} 

case  iioa_axiqmi_cir;  {  output_flag  =  nonjaxi^_for,  break; } 
case  non_axiqrm_for  (  output_flag  »  non_axisym_cmp;  break; } 
case  non_axiqfm_cmp:  {  output_flag  noa_axi^_har,  break; } 
case  non_axisym_har  { 

//go  to  the  pbtfidq  case  if  them  is  a  pbdoutktq  file  and  the  pbd_flag  is  sd 

if((pbd_flag}ft&aocess(”pbdouLktq”,  0)  0) 

output_flag  -  pbdktq; 

//otherwise  go  bade  to  the  summaiy  case 

else 

ouq)ut_flag  -  summaiy; 


biwk;} 


cwepbdkiq:  {  outpatjbg  -  fuaunaiy;  break;  } 

) 

ImalidMdlect(hWnd.  NULL,  TRUE); 
ittumO; 

} 

The  first  arkfitional  case  in  the  MDICluldOutputWndProc  fiuiction  is  the 
WM.RBinTONDBLCLKcase.  The  WM.RBUTTONDBLCLK  case  responds  to  the 
user  double  clicking  the  right  mouse  button  on  the  Output  Viewer  window.  This  causes 
the  text_color  flag  to  be  indexed  in  a  continuous  loop  fit>m  the  default  blue  to  green,  to 
red,  to  black,  and  back  to  blue  as  the  user  continues  to  double  click  the  right  mouse 
button.  It  is  accomplished  with  a  switch  amilar  to  the  one  described  in  the 
WM_LBinTONDBLCLK  case  above.  After  the  text_dbior  flag  has  been  altered,  the 
InvalidateRect  function  is  used  to  cause  the  screen  to  be  redrawn  and  the  case  is 
terminated  by  returning  zero. 


case  WM_RBUTTONDBLCLK:  { 

//if  the  right  mouse  button  is  doiMe  clicked,  the  textjcolw  is  indexed 
// by  one  inctement,  starting  with  Mue  and  progressing  through  green,  red, 
// and  black  that  hack  to  blue 

switdKtext  color) 

{ 

case  blue:  { text_o(dof  »  green;  break; } 

casegreen:  ( text_c(dor  -  red;  break;} 

caaered:  { text_coior-Ua^; break;  } 

casebladc;  { text  color-Uue;  break;  } 

} 

//cause  the  screen  to  be  rqiainted  once  the  textjcrdor  has  been  indexed 
InvalidatdtectfhWnd.  NULL,  TRUE); 

return  0; 

} 
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The  other  two  new  cases  are  the  WM_VSCROLL  and  the  WM_KEYDOWN 

cases.  The  6rst  refers  scroQ  bar  messages  to  the  WMVScrdI_Handl«’ function  and  the 

second  refers  messages  to  the  WMKeydown_Handler  function.  These  functions  will  be 

described  later  in  this  appendix. 

camWM  VSCROI.: 

{ 

letum  HAN1X£  WM_VSCRCXX(hWiid.  i^>afaiii.  IPanm.  WMVScroU  Handler); 

) 

caaeWM  KEYDOWN: 

{ 

//this  case  handles  keyboard  entiy 

return  HANlH£_WM_ICEYIX)WN(hWnd,wParani.O>aram,WMKeydown_Handler); 

> 

The  last  case  in  the  sudtch  is  the  WM_PAINT  case.  This  case  passes  the  handle  of 

the  Output  Viewer  window  to  the  paintout  function.  The  paintout  fenction  draws  the 

lyipropriate  output  file  to  the  Output  Viewer  window  device  context. 

caseWM  PAIKT: 

{ 

paintout(hWnd); 
return  0; 

} 

} 

If  a  message  is  not  handled  by  one  of  the  cases  in  the  switch,  it  is  referred  to  the  default 
MDI  Child  window  procedure. 

return  DelMDIGiildProc(hWnd,  message,  nParam,  IParam); 

> 

C.2^  The  PLL  MDIChiMPIotWndProc  fanction. 
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The  MDIChildPlotWiidProc  is  sunilsr  to  the  MDIChildOu^MitWndProc  fiinction 
described  m  section  C.2.2  d>ove.  but  without  the  cases  made  necessaiy  by  the  Output 
Viewer  window  scroO  btf. 

LRESULT  CALLBACK  .export  MlNaiil(D>lotWiidPrec(HWND  hWnd.  UINT  message.  WPARAM 
aftiaai,  LPARAM  IPaim) 

{ 

switch  (message) 

{ 


The  WM_LBinTONDBLCLK  case  responds  to  the  user  double  clicking  the  left 
motjse  button  on  the  Plot  Viewer  window.  This  action  causes  the  plot  displayed  to  index 
in  a  continuous  loop  through  the  available  plots.  This  is  more  straightforward  than  the 
Output  ^ewer  case  because  there  is  a  lower  d^ree  of  variability  in  the  plots  available. 


case  WM.LBUTTONDBLCLK :  { 

//if  then  are  BO  plots  to  dnw  and  pbd  hss  not  been  nin,  tenninate  the  case 


If  there  are  no  PLL  and  no  PBD  plots  to  draw,  the  case  is  terminated.  Otherwise, 
a  switch  is  used  to  alter  the  plotjiage  variable  value  based  on  the  plot  currently  displayed 
and  the  plots  available.  The  InvalidateRect  function  is  then  used  to  cause  the  screen  to  be 
redrawn  and  the  case  is  terminated.  The  available  plots  are  displayed  in  the  follovring 
order: 


1.  PLL  page  1. 

2.  PLL  page  2. 

3.  PLL  page  3. 

4.  PLL  page  4. 

5.  PBD  input  Made  B-q)line  control  net  mid  the  resultant  blade. 

6.  PBD  output  blade  grid  for  eadi  blade,  centeihody,  tranation  wake,  and  hub  and 
duct  images  as  applicable. 

7.  velocities  at  the  blade  control  points. 

8.  contour  plot  of  the  bound  circulation  strength. 

9.  radial  drcularion  distribution. 

10.  drcumferential  mean  vdodty  plot. 
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U(l4nw_plat_fl«t*A  i^_llag) 

ntunO;  H 

//if  tke  left  WMiie  bolloa  it  double  dicfcad  on  the  plot  page,  index  ttaraugb  the  pages 

*w>ich(piotjMge) 

{ 

//^_petevahiet  0-3  cause  pU  plots  to  be  dnwu  g 

case  0:{  plot_poge  - 1;  beeak;  } 
case  l:{plot_par- 2;  bleak;} 
case  2:{plot_pagB- 3;  bleak;} 

//ifthepbd  flag  is  set.  iadex  through  the  pbd  plots  g 

case  3:{  il(pbd_flag)  plot_page  =  4; 

dae  plot jiage  break;  } 

case  4:{  plotjpage  -  5;  break;  } 
case  S:{  plotjnge  >  6;  break;  } 

case  6:{plot_page- 7;  break;}  g 

case  7:{  plotjnge  *  S;  break;  } 

//if  die  pbdouLcmv  file  exists,  set  |dot_page  to  9  and  plot  that  file 
//  otheiwiae  start  over  with  case  0  if  pU  plots  are  to  be  drawn  and  case 
//  4  if  they  are  not  to  be  drawn 

case  g:{  ifl[aooess(*pbdoia.cniv*,  0)  0)  plotjnge  =  9;  ^ 

dae  ig[drawjiiat_flag)plot jnge  =  0; 
else  plotjnge  -  4;bfeak; } 

//start  over  with  case  0  if  pU  plots  are  to  be  drawn  and  case  4  if  thqr  are 

//not  to  be  drawn  gr 

case  9:{  if(drawj)lot_flag)plotjnge  -  0; 
else  plotjnge  >4;  break;  } 

} 


Invalidaldlect(hWnd.  NULL,  TRUE); 

retunO; 

} 

The  user  caOs  the  PBD  Plot  Geometry  dialog  box  by  double  clicking  the  right 
mouse  button  with  the  cursor  on  the  Plot  Viewer  window  while  a  PBD  plot  is  di^layed. 
If  a  muitiirie  conqxment  PLL  plot  is  displayed,  the  WMJRBUTTONDBLCLK  message 
causes  the  plot  displayed  to  index  on  a  continuous  loop  between  the  component  one  plot, 
the  component  two  plot,  and  the  combined  plot. 
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wM.RmnroNiwxiJc :  { 


//if  te  light  aoiin  bvllMi  is  douUe  dkkcd  M  tke  plot  page  and  a  pbd 
// plot  is  dippiqicd.  send  a  aMMags  to  the  ftaaw  wiadow  to  call  the 
// pbd  pitch.  loU.  yaw  dialoc  hOK 


If  the  plot jfMge  value  is  greater  than  three,  then  a  reo  is  being  dqriayed.  The 

SendMesaage  function  is  used  to  send  a  n^JEOITPITCHROLLYAW  message  to  the 
FrameWndProc  to  cause  the  PBD  Plot  Geometry  box  to  be  called  and  the  case  is 
terminated. 

i«(plot_page>3M 

SeiidMessage(liFnuiieWiid.WM  COMMAND.a»^_EDrrPITCHROLLYAW. 
MAKELONG^.O)); 

letuniO; 

> 


If  the  plot_page  value  is  not  greater  than  three,  then  LDEV  is  tested.  If  the  project  is  a 
single  component  project  the  case  is  terminated.  If  the  project  has  two  components,  then 
the  plot_component_6ag  is  indexed  on  a  continuous  loop  so  that  the  component  one,  then 
the  component  two,  and  then  the  combined  component  plot  will  be  di^Iayed.  The  screen 
is  then  repainted  and  the  case  is  terminated. 

/Af  pU  plots  are  being  displayed  and  there  is  only  (»e  component,  tenninate  the  case 
if(LDEV— 1)  retiiinO; 

llfsit  nmltiple  components  use  the  following  switch  to  index  through  thSxases 
// nhere  component  1  is  ptotted,  component  2  is  plotted,  and  both  are  plotted 

switdi(plot  compooeot_flag) 

{ 

case  0;  {  plot  oofflponeot_flag-l;  break;  } 
case  1:  {  ptoToomponent.flag-l;  breA; } 
case  2:  { plot  congioiient  flag-0;  break;  } 

} 

//cause  the  screen  to  be  lepaimed 

InvalidtodlectChWnd.  NULL,  TRUE); 


returaO; 


The  WM_PA1NT  case  is  used  to  a>fdrd  the  plots  displayed  on  the  Plot  Viewer 
window.  A  PAINTSTRUCT  structure,  a  handle  to  a  device  contect,  a  pointer  to  a  file 


structure,  and  aPOINT  structure  are  declared. 

CMeWM_PAIKr:{ 

PA1NTSTR.UCT  ps; 

HDC  PlolPaiaaX>. 

FILE  *plot; 

KENT  origiD-{320J40}; 


/^wint  stiudiue 

//handle  of  the  device  context 

//pointer  to  a  file  structure 

//origin  of  plot  in  screen 
// logical  coordiirates 


If  a  PLL  plot  page  is  to  be  displayed,  the  case  passes  the  handle  of  the  Plot  Viewer 
window  to  the  paintjplot  fiuiction  and  terminates  the  case  by  returning  zero. 

//if  a  pU  page  is  to  be  plotted,  call  the  painqriot  fiinctioo  and  tenninate  the  case 
if(plotjpage<4){  paintplot(hWnd);  return  0; } 


If  a  PBD  plot  is  to  be  drawn,  the  sine  and  co^e  of  the  global  pitch,  roll,  and  yaw 
values  are  calculated.  These  values  are  used  by  the  functions  that  draw  the  wirefhune 
drawii^  using  the  PBD  output  files.  The  case  then  uses  the  B^nPaint  function  to 
prepare  the  Plot  Viewer  urandow  for  painting. 

//calculate  the  cosine  and  sine  of  the  roll,  pitch,  and  yaw  prior  to  painting  a  pbd  page 

oos_n)ll  '■cosCroU); 

sin_roll  *’sin(roll); 

oos_yaw  ^oos^aw); 

sinjraw  ^sinCyaw); 

oos_piteh  "CosONtdi); 

sin_piteh  >sin(pitch); 

// create  the  device  context 

PlotPaintDC  -  B^inPaint(hWnd,  Aps); 
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The  WM_PA1NT  cue  then  uses  a  switch  to  control  the  files  and  fiuictions  used  to 
draw  output  to  the  Plot  Viewer  window.  The  switch  is  identical  to  the  switch  used  in  the 
IDM_PR1NTPB1VL0TS  caw  in  the  WMCommandJHandler  fiinction  described  in  detail 
in  section  C.  1.3. 

/Aiie  a  swildi  to  ddersniae  whidi  iM  oolput  files  SIC  to  be  ptooed  and  esU  the  sppnprisle  plot  ftmetion 
switoh^jiapeK 
caae4:{ 

/fif  the  pbdouLibg  fik  exists,  open  it  and  plot  it 

ifiaooessCpbdouttog”,  0) »  0)  { 

plot  =  fopenCpbdouLibg''.  "r^; 
paiiit_gnphs(PiotPaintDC,  origiii,  plot,  0); 
lclose(plot);  } 
if(access("pbdoutbai*.  0)  — >  0)  { 

plot  -  fopen(*pbdouLbsn".  "r^; 

paint _gra|dis(PlotPaintDC,  origiii,  plot,  1); 

fclose(plot);  } 

bleak; 

> 

case3:{ 

if(acoess(”pbdouLbiib”,  0)  »  0)  { 

plot  -  ftpeoCpbdouthub".  •fy, 
paiiit_hub(PiotPaintDC,  oripin.  plot); 
fckmeCpIot);  } 

if(accessrpbdouthdi”.  0)  —  0)  { 
plot  -  fopenCpbdouLhdi’. 
paint  jpaidisCPIotFsiiitDC,  atigm,  plot,  1); 
fcloee(plot);  } 
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aiaooQMCpbdiMLobg”.  0) — 0)  ( 

piot-fopeaCpbdoaLobg”.  V); 

ptiat .jnphiCPlotfuatDC.  origin,  plot.  0); 

fckMcCpiot);  } 

bicok; 

} 

caie6:{ 

UtaooenCpbdouLvq)*.  0)  0)  { 

plot » fbpenCpbdauLvcp”.  ”0; 
paint_vqi(PiotPuntDC.  wigin.  plot); 
firioae(piot);  } 

break; 

} 

ca8e7:{ 

/Abe  diculatkm  contour  |riot  file  may  be  either  a  .g^  w  a  .sol  file 
ifiaocessCpbdouLgsp”.  0)  — =  0)  { 

plot  -  fbpenCpbdouLpp”.  V); 
paint .^gqiCPlotPaintDC,  origin,  |^); 
fidose(plot);  } 

dse  ifl[aooessC'pbdouLsol*.  0)  =  0)  { 

|riot  >■  fiipenCpbdputsol".  V); 
paint _gsp(PlotPaintDC.  origin,  |dot); 
fidose(plot);  } 

break; 

> 

caae8;{ 

/Abe  radial  circulation  distribution  file  may  be  either  a  .rdc  or  a  .sgr  file 
i«[access(*pbdoiiLnlc".  0)  —  0)  { 


plot » fbpenCpbdouLrdc”,  *r*); 


ptiiM_fdc(PlolPiialDC.  plot); 
fcioM(plat);  } 

etae  if(acoeMCpbdoiiLair”.  0)  0)  { 

plot  -  fcpeiObdoMLctr-.  'r^; 
poiat.fdcCnotPaialDC,  plot); 
fclooe^lot);  } 

0 - 

OfrlB, 

> 

cue9:{ 

if(oooess("pbdoitt.cniv”,  0)  =•  0)  { 

plot  -  fispenCpbdoitt.cmv'',  "r^; 
poiiit_ciiiv(PlotPaintDC,  origiii,  plot); 
fi:lose(plot);  } 

bfcak; 

} 

} 

The  last  action  taken  by  the  WM_PAINT  case  is  to  close  out  the  paint  conunand 

u^g  the  EndPaint  funcdon  and  to  return  zero  to  indicate  that  the  case  was  handled. 

//close  out  the  paint  omninaiid  and  tenninate  the  case 

EndPaint(hWnd,  Aps); 

return  0; 

> 

} 

Messages  not  handled  by  the  switch  are  refored  to  the  default  MDI  Child  window 
procedure. 

//refer  messages  not  handled  above  to  the  d^ult  windows  MDI  child  window  procedure 

return  DefMDIGii]dProc(hWnd,  message,  v^’aram,  IPanm); 

> 


APPENDIX  O 


The  PLL  dialog  functions. 


The  PLL  dialog  functions. 

The  PLL  Windows'll  application  makes  extensive  use  of  dialog  boxes.  Each 
dialog  box  requires  two  support  functions.  Hie  dialog  box  functions  used  in  PLL  are  very 
similar  to  those  described  in  Appendices  A.4  and  B.2.  The  PLL  dialog  functions  are  listed 
below  and  are  described  briefly  by  text  interspersed  through  the  code. 

C.3.1  The  Run  Time  Settings  dialog  box  functions. 

The  WMRunTimeDlgCommand_Handier  and  RunTimeDlgProc  are  used  to 
initialize  and  then  handle  input  from  the  Run  Time  Settings  dialog  box.  The  dialog  box 
makes  use  of  edit  controls  for  receiving  numerical  input,  check  boxes  for  setting  options, 
and  auto-radio  buttons  for  allowing  the  user  to  select  from  mutually  exclusive  options. 

void  WMRunTimeDlgCoininaiid  H9uid!er(HWND  hDIg,  int  id,  HWND  hwndCU,  UINT  codeNotify) 

{ 

char  input(20]  =  //character  string  for  i/o 

switch(id) 

{ 

case  IDM_OKRUNTIME ;  { 

HWND  hCtrl;  //handle  to  a  dialog  control 

//read  the  data  from  the  Run  Time  Settings  dialog  box 

GetDlgItemText(hDlg,  IDM_HORSEPOWER,  input,  20); 

horsepower  =  atof1[input); 

GetDlgltemTextfhDIg,  IDM_THRUSTCOEFnCIENT,  inpuCSO); 

thrust.coefiTicient  =  atofl[input); 

The  procedure  used  to  interrogate  the  auto-radio  buttons  and  checkboxes  is 
slightly  different  than  the  procedure  used  in  the  previous  programs.  The  previous 
programs  declared  a  DWORD  variable  and  assigned  the  return  value  of  the  SendMessage 
function  to  the  variable.  The  variable  was  then  tested  using  an  if  statement  and  the  flag 
value  was  set  appropriately.  In  this  case,  the  flags  are  set  up  so  that  a  checked  state 
indicates  a  value  of  one  for  the  flag  and  an  unchecked  state  indicates  a  zero  value.  The 
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return  value  from  the  SendMessage  is  cast  as  an  integer  value  with  the  "(int)*  that 
precedes  the  function  call  and  the  value  is  assigned  directly  to  the  flag.  This  eliminates  the 
need  to  declare  the  DWORD  and  to  perform  the  test  using  the  if  statemoit. 


hCtrl  -  GetDIgltemOiDIg.  IDM_OPTIMIZERFM); 
optimizie.ipin  (iiit)SeiidMessage(hCtri,  BM_(XTCHECK,  0.  OL); 

hCtil  -  GetDlgItein(hDlg.  IDM_OPTIMIZEDIAMETER); 
optiiiuze_diaincter  =  (iiit)SendMessage(hCtri,  BM_GETCHEGC,  0,  OL); 

hCtri  -  GetDlgIteni(hDlg.  IDM_MAXIMIZETHRUST); 
maximize_thnist  (int)SeiidMessage(hCtri,  BM_GETCHECK,  0,  OL); 

hCtri  =  GetDtgItem(hDlg.  IDM_NOCH>nONS); 

iio_ntntinie_optioiis  =  (iiit)SeiidMessage(hCtrl,  BM_GETCHECK,  0,  OL); 

hCtri  =  GetDlgItem(hDlg,  IDM.UNLOAD); 

uiiload_flag  =  (int)SendMessage(hCtrl,  BM_GETCHECIC,  0,  OL); 

hCtrl »  GetDlgItem(hDlg.  IDM_MATCHEAR); 

inatch_EAR_fIag  =  (int)SendMessage(hCtri,  BM_GETCHECK,  0,  OL); 

hCtrl  =  GetDlgIteiii(hDlg.  mM_USECURRBLD); 
use_cuir_blade  =  (int)SeiidMes»ge(hCtrl,  BM_GETCHECK,  0,  OL); 

hCtrl  =  GetDlgltemChDlg.  IDM_NONAXISYM); 
eval_iK>naxi_stator  =  (int)SeiKlMessage(hCtrl,  BM_GETCHECK,  0,  OL); 

hCtrl  =  GetDIgItem(hDlg,  IDM_WRITEPBDFILES); 
pbd_file_flag  =  (int)SeiidMessage(hCtrl,  BM_GETCHECK,  0,  OL); 


The  run_ok_flag  variable  is  a  global  integer  variable  that  is  used  to  determine 
whether  the  user  selected  the  "OK"  button  or  the  "CANCEL"  button.  This  allows  the 
program  to  terminate  the  File|Run  case  if  the  user  changes  his  or  her  mind. 
run_ok_flag  =  0; 

EndDialogChDIg.  0); 
break; 

} 

case  IDM_CANCELRUNTIME :  { 


tuii_ok_flag  =  1; 
EndDialogfhDlg,  0); 
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BOOLCALLBACK  eaqiort RjHnTimd>lcPi«:(HWND hDIg. UINT menace, WP ARAM 
LPARAMOPteim) 

{ 

dnr  iii|Ml{20]  -  //dmtwchu  string  fin  i/o 

iwHcMmcmge) 

{ 

caw  WM.INITDIALOG :  { 

//^Kint  the  cmient  values  in  the  Run  Time  Settings  dialog  box 

sprinlfi[inpat.*S9.  ir,lionqw«er): 
SetDlgItBmText(hDlg,IDM_HORSEPOWER,iiiput); 

nprintf(ii4iut,*%4.3r,thnist_coefiBciait); 

SetIHgItemText(hDlg,IDMjrHRUSTC(^nClENT.input); 


The  functions  in  PLL  make  use  of  the  CheckDIgButton  function  to  initialize  check 
boxes  and  auto-radio  buttons.  The  CheckDIgButton  flin&tion  receives  a  handle  to  the 
dialog  box,  the  identifier  of  the  control,  and  an  unsigned  integer  check  state.  The  function 
then  checks  or  clears  the  control  as  indicated  by  the  state.  In  these  cases  the  value  of  the 
flag  is  cast  as  an  unsigned  integer  by  using  ”(UBxT)”  preceding  the  variable.  A  value  of 
one  causes  the  associated  button  to  be  initialized  in  a  checked  state,  and  a  zero  value 
causes  the  button  to  be  initialized  in  a  cleared  state. 


ChedcDIgButton  (hDIg,  IDMjCX’TIMIZERPM, 

CheckDIgButton  (hDIg,  IDM  (XTIMIZEDIAMETER, 

CheckDIgButton  (hDIg,  IDmImAXIMIZETHRUST. 

CheckDIgButton  (hDIg,  IDM  NOCHTIONS. 

CheckDIgBidton  (hDIg,  IIHri_UNLOAD, 

Chedd>lgButton  (hDIg,  IDM  MATCHEAR, 

CheckDIgButton  (hDIg,  IDM~USECURRBLD, 

ChedcDIgBotton  (hDIg,  IDM.NONAXISYM, 

ChedcDIgButton  (hDIg,  IDM_WRnEPBDFILES, 

return  TRUE; 

} 

caw  WM_COMMAND :  { 

return  (B(X!)L)HANDLE_WM_(XAilMAND(hDIg,  wParam,  IPatam, 
WMRunTuneDlg(^nunaiKl_HaiidIer); 


(UINT)optiinize_tpm); 

(UlNT)cvtunize_diameter); 

(UINT)inaximize_tlirust); 

(UlNT)no_runtime_options); 

(UIKDunload_ll8g); 

(UINT)matdi_EAR_fIag); 

(UINT)use_curr_bIa^); 

(UINl>vaI_nonaxi_stator); 

(UlNT)pbd_fiIe_fIag); 


d 
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» 


} 

) 

fedinFALSB; 


C3.2  The  Expudcd  Area  Ratio  dialog  box  functioBS. 

The  Expanded  Area  Ratio  dialog  box  requires  four  separate  functions.  The 
WMEARlD|fCoiniiiandi_lhuidler,  WMEAR2DlgCemiiMin<l_Handkr.  EARlDIgProc,  and  EAR2DIgProc 
functions  are  shown  below.  Four  functions  are  required  because  single  and  multiple 
component  boxes  are  provided.  The  identifiers  used  in  the  angle  component  case  for 
initializing  the  expanded  area  ratio  value  and  receiving  user  input  are  also  used  for 
componoit  one  in  the  multiple  componoit  case.  This  reduces  the  total  number  of 
identifiers  required  and  allows  for  reuse  of  some  of  the  code. 


void  WMEARlDIgConunaiid  Haiidler(HWND  hDIg,  int  id,  HWND  hwndCtl,  UINT  codeNotify) 

{ 

ctiT  iiiput(20] »  //character  string  for  i/o 

switchfid) 

{ 

caseIDM_OKlEAR:{ 

GetDlgIteinText(hDlg.  IDM_1EAR,  input,  20); 

EAR(0)  *  atoffiiqiut); 

EndDialogChDIg,  0); 


BOCX^  CALLBACK  export  EARlDlgProc(HWND  hDIg,  DINT  message,  WPARAM  wPatam, 
LPARAMVaram) 

{ 

diar  iiiput(20]  //character  string  for  i/o 

switdi(message) 

{ 

caseWM  1N1TDIAL0G;{ 


sprntfi[input,”%S.4r,EAR{0)); 

SelDlgItemText(hDIgJI^_lEARDAT,inpirt); 


i 


i 


» 


g 


278 


4 


4 


4 


4 


4 


ipfialCu^'%9-4r.EARiOD; 

SetfX|U«Tex^UX|JI»f_lEAR.iapiit); 

ictuiaTRUE; 

> 


OK  WM.COMMAND :  ( 

Ktuiii(BO(X.)HANIX£  WM  CX»rlMAND(U>lg.  iiiteaiii.  IPuinu 
WKffiARlDIgCoamMad  Handle^; 

) 

> 

letiini  FALSE; 

> 

voidWMEAR2DlaCoaumuid  Haiidkf(HWND  hDIg.  int  id.  bwndCtl,  IHhn*  codebto^ 

{ 

rfiar  iapiit(20]  -  *'*;  //character  string  for  i/o 

switch(id) 

{ 

caKlZHi4_CMC2EAR:{ 

GetDlglteinTextfliDIg.  IDM_1EAR,  input,  20); 

EAR(0]  ~  ataf(input); 

GelDIgJtanTextOiDIg,  im4_2EAR,  input,  20); 

EAR(l]-abiKinpat); 

EndDudogfliDIg,  0); 


break; 

> 


> 


B(XX<  CALLBACK  _e}qxMt  EAR2DlgProc(HWND  hDIg,  UINT  message,  WPARAM  wParam, 

LPARAMlPararo) 


{ 

*  •  char  input(20)  -  //character  string  for  i/o 

switchCmessage) 

( 

caseWM  INrrDIALOG:{ 


spfintfl[ii4Mt,*%S.4rjEARI0]); 

SetDl^temText(hDlg,IDM_lEARDAT,input); 

sprintfl[input,"%S<4r3ARI  1]); 
SelDlgJtemText(hDlg,IDM_2EARDAT,ii4Nn); 

spriittfl[iiqNit,”%S.4r3AR(0)); 

SelDI^temText(hDlgJDM_lEAR,input); 

sprintf(input."%S.4r3ARIll); 

SetDl^temText(hDIg,lDM_2EAR,input); 
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velamTRUE; 

> 

caMWM_OOMMAND;{ 

nliin(]BOOL)llANIX£  WM  C(»<MAND(liDlg.  wPliim,  0**^ 
WMEARlDlsConuBaBd  Handler); 

) 

> 

ntnniFALSB; 

} 


C33  The  Glaiicrt  Cocflicicati  dialog  box  fiinctioBS. 

The  GHauert  Coefficients  dialog  boxes  also  require  four  functions  to  handle  the 
single  and  multiple  component  cases.  Since  the  coefficient  values  and  the  associated  user 
input  are  handled  as  floating  point  arrays,  the  identifiers  for  the  static  text  controls  used  to 
di^lay  the  current  values  of  the  coefficients  and  the  identifiers  for  the  edit  text  controls 
used  to  recdve  the  unload  firactions  are  defined  sequentially.  This  allows  the  controls  to 
be  initialized  and  read  using  for  loops  and  therdiy  minimizing  the  amount  of  code  needed 
and  the  size  of  the  executable  file. 


void  WMGIauertlDlgCoiiuiiaiid_Haiidlei(HWND  hDIg.  int  id,  HWND  bwndCtl,  UINT  codeNotify) 

{ 

char  i]iput(20]  //character  string  for  i/o 

switch(id) 

{ 

case  IDM_(XC1GLAUERT ;  { 

intk;  *  //loop  counter 

//loop  through  and  read  all  of  the  Glauett  coefficient  unload  firactions 
foi(k-0;k<NGC*++){ 

GetDlgIteinText(hDlg,  IDM  IGLAUERTl-Hr,  input,  20); 
GC_UNLOAD_FRAC[0][k]  -  atof(iiq)ut); 

} 

} 

case  IDM.CANCELIGLAUERT :  { 


EndDialogfhDIg.  0); 


I 


BOOL  CAUBACX  .cjq^  aaneitlOlg|Voc(HWND  IdHi.  UIOT 

LPARAMOPwmi) 


chv  i^pK20]> 
in  k; 

twikiCaetiw) 


WPARAM  wPinun. 


//Zander  (triag  fiir  i/o 


WM_lNm>IALOG:{ 


f9i<k-0;k<NGCJc++){ 


4>riiitf{ii9ut."SS.4r.GC(0](k)); 

SetDlgIlemText(IiDlgJE»M_lGCl-Hc,i]iput); 


feturnTRUE; 


WM_CXM^<MAND :  { 

return  (BO(X.)HANDI£_WM_CCM^4MANI)(hDlg.  wParam.  iParam, 
WMG>auertlDlgCoaunaDd_Handler); 


icluni  FALSE; 


^  WMGIauett2DlgCoininand JlandIef(H^  hDIg,  im  id,  HWND  liwndCU,  UINT  codeNotify) 

char  inputlM]--;  //character  string  for  i/o 

swildKid) 

{ 

care  IDM_(XC2GLAUERT :  { 


int  k; 


//loop  counter 


//loop  through  and  read  all  of  the  Glauert  coeCBcient  unload  fiactions  for  both  components 
fci(k-0;k<NGC*++){ 

GetDlgIleinText(hDlg.  IDM_1GLAUERT1-Hc,  input,  20); 
GC_llNLOAD_FRAqO][k]  -  atof(iiq)ut}; 

GeOMtf temTextChDIg,  IDM_2(3J^UERT14h,  iqnit,  20); 
GC_UNLOAD_FRACIl]P[]  ato<(ii^); 


I 
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1DM_CANCEL2GLAUERT :  { 


EiidDiaioc(UHg.OX 

bnik; 


BOOLCALLBACK  export GtaBeft2ENgPnc(lIW^a^ hIHg. 

LPARAMIPanni) 


iiipiA{20]’ 

k; 

ieasi«e) 


WPARAM 


//diancter  rtiing  for  i/o 


cate  WM.INITDIALOG :  { 

f9i(k-0;k<NGC*++)( 

spriiitf(iiViil.*SS.4f'.GC(0](k]); 

SetIM^i[lmText(liDlg.IDM_lGCl-Hc.iiiput); 

apriatf(iqwt.-%S.4r.GC(l](kD; 

SelDl^lteBiText(UBgJI^_2GCl+k.iiip(rt); 


iclumTRUE; 


caseWM_(X»4MAND:{ 

retura  (BC)OL)HANDLE_WM_CXA4MAND(hDlg.  wPanun,  IPanun, 
WMGlauertlDlgComniaiKl  Handler); 

} 

> 

return  FALSE; 


CL3.4  The  PBD  Skew/Rake  Settings  dialog  box  functions. 

The  PBD  Skew/Rake  Settings  dialog  boxes  also  require  four  fiinctions.  In  this 
case,  however,  the  first  two  fiinctions  initialize  and  retrieve  data  fi'om  the  component  one 
box  and  the  last  two  fiinctions  initialize  and  retrieve  data  fi’om  the  component  two  box. 
These  fiinctions,  like  the  CHauert  Coefficients  fiinctions,  make  use  of  the  sequential  nature 
of  the  data  by  using  for  loops  and  sequentially  defined  identifiers.  They  are  also  coded  to 
allow  the  user  to  cause  the  Command  Handler  fiinctions  to  calculate  skew  and/or  rake 
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vahies  for  intermediate  radii  by  siqvpiying  hub  and  tip  skew  and/or  rake  values  and 
dieddng  the  appn^mate  box(es). 


« 


< 


i 


« 


t 


void  WMSkmidUi»llM(Coaiiia^  HandMHWND  hDIg.  iat  id.  HWND  hwiidCd.  UINT  oodeNbdfy) 

{ 

dur  iapnillO)  -  //chtracter  string  for  i/o 

HWND  bCnl;  //handle  to  a  dialog 

ooeini 

fwilch(id) 

{ 

case  imd.OiCISiCEWRAICE :  { 
intk; 

//loop  thraugh  and  read  all  of  the  skew  and  rake  inputs  for  component  il 

fof(k-0:  k<MRPINIO];k^)  { 

GetDlgItemText(liDlg.  QH^.lSKEWl-Hc.  input,  20); 
pbd_dkBwfk](0]  -  alol(input); 

GetDlgltemTextChDIg.  IDM_1RAKE1-Hc.  ii^iut,  20); 
pbd„nke(k][0]  >  atad[input); 

} 

hCtri  «  GetDIgltemOiDlg.  IDM  LINEARSKEWl); 

Unear.riuw.fUglO]  -  (int)Sewfolessage(hCtrI,  BM.GETCHECK,  0.  OL); 

hCtri  -  GetDlgltenKhDIg.  IDM.UNEARRAKEI); 
liaear_rake_tlagIO]  -  (int)SendMessage(hCtri,  BM.GETCHECK,  0,  OL); 


If  the  line8r_skew_flag  was  set  by  the  user  action  of  checking  the  "Use  Linear 
Skew"  check  box,  the  program  uses  a  ftn*  loop  to  calculate  the  skew  value  at  each 
intermediate  radius  by  interpolating  between  the  hub  and  tip  values. 


/rif  the  linear  skew  flag  is  set  for  component  #1,  calculate  a  linear  ricew  distribution  for  component  #1 
i£[linear_skew_flag(0]) 

for(k-igc<MRPIN(0]-l;k++) 

pbd  dcewfkllOHibd  skewfOKOHpbd  skewfMRPIN(0]-lH0]-pbd  skew(0|[0]) 
*(XRPIN[kU0]-XRPD4(0n0]Vi:XRPIN[MRPIN(0]-in01- 

XRPIN(0U0]); 
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1 

t 


1 


i 

I 

I 

I 

1 
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The  same  process  is  used  for  the  rake  aettnigs. 

//ifthe  heesf  like  flag  is  set  Ibfoiwepoeeetil.csIciiliiesliaesfiitetfitiTfaMtioafiycompoaentil 
i«iaew_i^_ll^OD 

i)f(k-l-4i<dlU>INIOhl;kH^^ 

pbd  nke(kl(0)-pbd  rricc(0](OHpbd  nke(MRPINIOHlllO]-pbd  rd»|OHOI) 
•(XRIWIkU0HXIUW|O]Iojv(XRIWIMRIW|0]<l)|0]- 

XRPINIOHOD; 


} 

CMC  OM.CANCELlSfCEWRAKE :  { 


EadDislogOiDIg.  0); 
bleak; 

> 


> 


BCXX.  CALLBACK  .export  SkmAakelDlgProc(HWND  hDIg.  UINT  message,  WPARAM  wPanun, 

LPARAM  IParam) 

{ 

char  iiipiitI20] «  //character  string  for  i/o 

int  k; 

switdKmessage) 

{ 

case  WM.INTIDIALOG :  { 

for(k-0;  k<MRPIN[0I*++)  { 

spriiitf[iiipiit."%S.2r,XRPIN[kH0]); 

SetDl^temText(hDlg.IDM_lRADIUSl+k,tnpiit); 

sprmd(input,”%5.2r,pbd  dcewpt](0]); 

SetDlgItemText(hOIg.n^_lSKEWl4k.iiiput); 

sprinlfl[inpiit.”%3.2r,pbd_rake(k](0]); 

SetDigItemText(liDlgjDM_lRAiXl-Hi,input}; 

} 

CheckDlgButtoa  (hDIg,  IDM  LINEARSKEWl,  (UINT)linear_skew  I1ag(0]) ; 
ChecWIgBirttOD  (hDIg,  IDM_LINEARRAKE1.  (UlNDlinear_rake_flagI01) ; 


letura  THUE; 


} 


caae  WM_C(»4MAND :  { 


» 


» 


»  I 


» 


i 
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« 


€ 
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< 
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9 


9 


raliini  (B00L)KAND1JB_WM_CX3MMAND(^^  wFuan.  IPwan. 

WMStewiUlniDIgCoauBMid  Hudkr); 

) 

> 

icIiinFALSB; 


The  process  is  the  same  for  the  compooent  two  fonctions. 

void  WMSfcgwRakelDtfToninMinrt  iisiMflef(HWND  hDig,  iat  id.  HWND  hwodCti.  UINT  coddiotify) 

( 

dMT  taewt|20]  ■■  **;  //dMmder  itriiig  for  i/o 

HWHD  hCiri; 

•wilch(id) 

{ 

CSK  lINd_OK2SKEWRAKE :  { 
iat  k; 

fbf(t-0;  k<MRPINIl];k-H-)  { 

Ge(DlaIteaiText(liDlg,  IIA4_2SKEWl4k,  input.  20); 

|itMl_dKwP(][l]  -  alafl[ii9iitX 

Ged>lgtteaiText(liIMg.  IIM_2RAKEl+k,  input,  20); 
pbd_nke(k](l]  -  alad^nput); 

> 


hCtil  -  GetDlgIteai(liDlg.  IDM_UNEARSKEW2); 

Iiaear_iiww_fl8g(l]  -  (int)SendMessage(bCtrl,  BM.GETCHECK,  0,  OL); 

hClri  -  GeiDlgIleni(liDlg.  IDM_UNEARRAKE2); 
liaetf.iikejiagll)  -  (int)SeadMessage(liCtil,  BM_GETCHECK.  0,  OL); 


if(liaear_dww_flagl  1]) 

fbrOc-l;k<MRPIN(l]<l;k++) 


XRPDqoKiD; 


pbd_fkew[kHll-pbd_dcni10|Il]+(pM  dcew(MRPIN(l]-l][l]-pbd  skewiOKl]) 
*(XRPINPc](  l]-XRPlN[OHliy(XRPIN[MRPlN[  1]<1U  1]> 


il(linear_f;dke_flag[l]) 

lbfOc"l;k<MRPIN[l]-l;k-H-) 

pbd_iakePi](lH)bd_nriw(0UlH|M_nke|K«Pm(l]-llIl|i)bd_rake(01(^ 


9 
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I 


XRPINIOHID; 


^xRiwikHiHXitim{o)|i]y(xiuwp^iN|i]-ii(ii- 


) 


I  imf.CANCEUSiCEWRAKE :  ( 
EiriDialot(hDlg.O); 

Mk; 


} 


> 


) 


BOCX.  CALLBACK  eqport  Slu««ake2DlcPnc(HWhD 

LPARAMIPwim) 

{ 


WPARAM  n^uam. 


char  iiiput(20]' 

iat  k; 

switd>(iiiesn9e) 

{ 


//diaracter  string  for  i/o 


iWM.INTroiALOG;  { 

for(k-0;  k<MRPIN(l]4c++)  { 

4>rialf(iiqNit.‘^.2r^lN(kI[l]); 

SetDI||^teniText(hDlg,IDM_2RADnjSl-Hc,uipitt); 

s|)riiid(iiiput.*KS.2r.{ibd_8kew[k]Il]); 

SelDlgItemText(hDlgJI^_2SISWl+fc.iiqiut}; 

qiriitff(inpiit."%3.2r,pbd_nkePc](l|); 

Sea>ig|temText(hDlg,lEM_2RAKEl-Hc,ii^Nrt); 

> 

ClMdtDIgBiittoa  (hDIg.  n»if  LINEARSKEW2,  (UINT)iinear  skew  flag(l]) ; 
CheckDlgButton  (hDIg,  IDM_LINEARRAKE2.  (UlNT)linear_rake_flag|ll) . 


leturaTRXJE; 


> 


case  WM_C(»ifMAND :  ( 

retani  (BO(X.^IANIH£_WM_CXX^lMAND(hDlg.  s^>aiain.  IPaiam. 

WMSkesritakelDIgCommand  Handler); 

> 


return  FALSE; 


} 


The  Steqmcss  dialog  box  functioiis. 
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The  single  and  nuihiple  component  Steepness  dialog  boxes  also  use  four  functions. 
The  boxes  are  used  to  provide  data  to  the  user  so  that  the  exponents  used  to  unload 
conqxMients  may  be  selected.  The  data  input  usng  these  dialog  boxes  is  then  used  to 
calculate  vahies  used  to  initialize  the  Unload  CoefOdents  dialog  boxes, 
void  WMSteeplDlgC<iminand_Handlcf(HWND  hDIg.  iot  id.  HWND  hwndCtl,  DINT  codcNotify) 


char  iiipul{20|  «•  **; 
switch(id) 

{ 

caaelDM  CXUhTEEP  .f 


//character  string  for  i/o 


GetDIgltemTextfhDlg.  IDM.HUBSTEEPNESSl.  input,  20); 
hub_sieepiiess(01  atoi(input); 

GetDigItemTextfhDIg.  IDM_TIPSTEEPNESS1.  input,  20); 
tip_steq>iiess{0]  -  atoi(input); 


case  IDM_CANCEL1STEEP ;  { 
EndDialogfhDlg,  0); 


BOOL  CALLBACK  _export  Steq>lDlgProc(HWND  hDlg,  UINT  message,  WPARAM  wParam, 

LPARAM  IPanun) 


char  input|20]  = 
switch(inessage) 

{ 

case  WM.INITDIALOG'.  { 

spiiiitf(iiiput,*%S.4r,hdb_circ[0]); 

SetDlg^tanText(hDlg,IDM_HU]KIRCl,input); 

t|irinlf(inpHt,"%S.4r,hub_radius(0J); 
SetDlgItmText(hDlg,IDM_HUBRADIUSl, input); 

aprintfl[input,"%S.4f',tip_circ(0)); 

SetDl^temText(hDlg,IDM_Tl]PCIRCl,input); 

q>rintf(inpot,*%S.4r,tip_radius|0]); 

SetDI0temText(hDlg.IDM_TintADIUSl,itq)(d); 

return  TRUE; 


//character  string  for  i/o 


4 
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> 


caK  WM.CXMMAND :  { 

letuni  (BOOL)HANmJE_WM_CX)MMAND(hDlg.  wParam,  IParam, 
WMSteeplDIgComnand  Handler); 

> 

> 

ittaira  FALSE; 

> 

void  VmSteep2DlgCoiiiiBaiid  Haiidkf(HWND  hDIg.  int  id.  HWND  hwndCU.  UINT  codeNotify) 

{ 

diar  iiqput(20] « //character  string  for  i/o 
switcli(id) 

{ 

caseIDM_OK2STEEP:  { 

GetDlgIteinText()iDlg.  IDM_HUBSTEEPNESS1.  input,  20); 

Iiul>_steepne8s(0]  >=  atoi(inpiit); 

GelDlgIteniText(hDlg.  IDM_TIPSTEEPNESS1.  input,  20); 
tip_sleepoess[0)  >  atoi(iiiput); 

GetDlgItemText(hDlg,  IDM_HUBSTEEPNESS2,  input,  20); 
hiib_steepness[l]  >>  atoi(input); 

GetDlgIteniText(hDig.  IDM_TIPSTEEPNESS2.  input,  20); 
tip_steepness(l]  <■  atoi(input); 

} 

case  IDM_CANCEL2STEEP :  { 

EndDiak>g(hDlg,  0); 


BOOL  CALLBACK  _expott  Steq>2DlgPtoc(HWND  hDIg,  UINT  message.  WPARAM  wParam, 

LPARAM  IParam) 


{ 


diar  input(20] » 


//character  string  for  i/o 


switdKmessage) 

{ 

caseWM  INITDIALOG;{ 


qMintf(input,”%S.4r,hub_circ[0]); 
SetDl^temText(hDlg,IDM_HUBCIRC  Linput); 
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•  ,  ». 


sprintfl[input,*%S.4r,hub_radius(0)); 


r 

/ 

■/ 

1 

i 

(• 

k; 

• 

SetDlgIteiiiText(hDlg,lDM_Hl]BRAOIUSl,iiipiit); 

• 

1 

spriiill(uipirt,”%S.4f'.tip_drc(0]); 

SclDlgItmText(hDIg.n:M_TIPCIRCl.iiiput); 

^priiitf(input.”%S.4r,tip_radius(0]); 

SdDlgIteinText(liDlg.lI^_TIPRADIUSl.iiiput); 

1 

qiriiitn[iiipiU.*%S.4f',hub_cifc|  1|); 

SetDlgItemText(liDlg.IDM_HUBCIRC2,iiiput); 

1 

giriiitf(iiipiit,*%S.4r,hiib_ndius(l]); 

SelDl^temText(hDl&IDM_HUBRADIUS2.iiiput); 

1 

spriiitf(iiiput,"%S.4r.tip_cifG[l]); 

SetDlg^teiiiText(liDlg.II^_'nKIRC2.iiiput); 

» 

spriiitfl[iiipiit,”%5.4f',tip_radius[  1  ]); 

SetDl^teinText(hDIg,n)M_TIPRADIUS2,input); 

1 

icturoTRUE; 

} 

» 

caseWM.COMMAND:  { 

1 

return  (BOOL)HANDLE_WM_COMMAND(hDlg,  wPanun,  IParam, 

WMSteep2DlgConiniand  Handler); 

} 

i 

• 

} 

return  FALSE; 

} 

< 

C.3.6  The  Unload  Coefficients  dialog  box  functions. 

The  four  functions  that  initialize  and  retrieve  data  from  the  Unload  Coefficients 

t 

(Ualog  boxes  are  shown  below. 

void  WMCoeSBdentlDlgConunand  Handler(HWND  hDIg,  int  id,  HWND  hwndCU,  UINT  codeNotify) 

{ 

diar  input(20]  *  //character  string  for  i/o 

switchCid) 

{ 

case  lDM_OKlCX)EFnCIENT ;  { 

• 

1 

i 

1 

GetDlgltanTextChDIg.  1DM_HUBC0EFFICIENT1,  input,  20); 
hub_coe£BcientIO] »  atoffinput); 

GetDIgltemTextChDlg,  IDM_TIPCOEFFICIENTl,  input,  20); 

$ 

1 

289 

• 

• 

•  •  •  #  #  •  • 

• 

• 

tip.ooefBcieiitiu]  -  alofl[ii9ut); 


} 


> 

ctK  II»4_CANCEL1C(KFFICIENT :  { 

EadDialogOiDIg.  0); 

braric; 


BOCX^  CALLBACK  .export  CoefficieiitlDlgProc(HWND  hDIg,  UINT  meawage.  WPARAM  wParam, 

LPARAM  IPanua) 


{ 


char  i0|mt(2O] 


//character  string  for  i/o 


switdi(nMssage) 

{ 

caseWM  INITDIALOG:  ( 


spfintf[input."V*4.3f.GNHC(0]); 

SetDlgItefflText(hDlg.IDM_HUBUNLOADPERCENTl.itiput); 

sprmtfl[iiiput,”%4.3f'.GNTC(0]); 

SetDlgIteinText(hDlg.IDM_TIPUNLOADPERCENTl.input); 

return  TRUE; 

} 


case  WM.CCAIMAND :  { 

return  (BOCX.)HANDLE_WM_CCA4MAND(hDIg.  wParam,  IParam, 
WMCoefficientlDIgCommand  Handler); 

} 

} 

return  FALSE; 

> 

void  WMCoefficteot2DlgCommand  Handler(HWND  hDIg,  int  id,  HWND  hwndCtl,  UINT  codeNotify) 

{ 

char  input(20]  *  //character  string  for  i/o 

switcii(kO 

{ 

case  IDM_(»UCC«FnCIENT :  { 

GetDlgIlemText(hDlg,  IDM.HUBCCKPFICIENTl,  input,  20); 
hHl>_cocfficieitt(0]  *  ato^in^); 

GetDIgItemText(hDlg,  IDM_TIPC0EFFICIENT1,  input,  20); 
tipjooefficientlO]  -  atofCiiqait); 
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GetDigIteinTextCliDIg,  IDM_HUB00EFFICIENT2,  input,  20); 
lHb_oo6fllcieiil(l]  -  at<)A[in|^); 


I 


Ged>lgIleaiText(liDlg,  IDM.TIPCOEFFIClEhm.  input,  20); 
tip_oodlBcienlIl]  -  tfofl[input); 

> 

am  II»«_CANCEUCX>EFnCIBNT :  { 

EndDinlogOiDIg,  0); 


BO(X<  CALLBACK  _e:qioit  CoefBcient2DlgProc(HWND  hDIg,  UINT  message,  WPARAM  wParam, 

LPARAM  IPanun) 


{ 

char  input(20|  * 


//character  string  for  i/o 


switch(niessage) 

{ 

case  WM.INITDIALOG ;  { 
sprintf(input,”%4.3r,GNHC[0]); 

SetDl^temText(hDig,IDM_HUBUNLOADPERCENTl,input); 

sprintf(input,"%4.3r,GNTC(0)); 

SetDI|^tefflText(hDlg,IDM_TlPUNLOADPERCENTl.input); 

8printf(inpiit,"%(.3r,GNHC(l]); 

SetDlgItemText(hDlg,IDM_HUBUNLOADPERCENT2,input); 

sprintf(inpiit,”%4.3r,GNTC[l|); 

SetDlgItemTe>4(hDlg,IDM_'nFUNLOADPERCENT2,iiq)ut); 
return  1BUE; 

} 


case  VVM_C(»4MAND ;  { 

return  (BOCH,)HANDLE_WM_COMMAND(hDlg,  sd>anin,  IPanun, 
WMCoefiBcient2DlgConunand  Handler); 

} 

} 

return  FALSE; 


C3.7  The  Default  Settings  dialog  boi  functions. 
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» 

» 


» 


$ 


I 


ft 


The  four  fonctions  that  iiutialize  and  retrieve  data  from  the  Default  Settings  dialog 


boxes  are  shown  bdow. 


void  s«!Winpnigr^inMMl  Haiidlef(HWND  hDIg.  int  id,  HWND  hwndCU, 

^  TcodeNo^) 


diar  iiiput[2v  //duuncter  string  for  i/o 

twitdi(id) 

{ 

case  IDM  (Xa^AULTlSETTINGS ;  { 


HWND  hCtrl; 


GetDIgltemTexKhDlg.  IDM_CLMAX.  iiqmt.  20); 
CLMAX  -  atad[inpiit); 

GetDlgltemTextChDlg,  IDM_TCHDMAX.  input,  20); 
TCHDMAX  -  atc^input); 

GetDlgltemTextChDlg.  IDMjmP,  input,  20); 

TTIP  -  atafl[input); 


GetDlgltemTextChDlg.  IDM_NPANEL,  input 
NPANEL  -  atoiCinput); 


GetDlgltemTextChDlg,  IDM_CDCON,  input,  20); 

CDCON  *  moCCiiqNit); 

GetDlgltemTextChDlg.  IDM_RHVOR,  input,  20); 

RHVCXl  >•  ato^input); 

GetDlgltemTextChDlg.  1I^_HUBCHWD1.  input,  20); 

HUBCHDfO]  -  atoC[input); 

GetDlgltemTextChDlg,  IDM_PLI,  input,  20); 

FLl  -  atof(iiqwt); 

hCtrl  -  GetDIgItemChDIg,  IDM.WAKEALIGNMENTFLAG); 
wake_alignnient_flag  C>>d)SendMessageChCtri.  BM_GET(^(rK,  0.  OL); 

hCtrl  -  GetDIgItemChDIg.  IDM_CIR(X»TFLAG); 

cticulalion_optimizatioa_flag  Cint)5endMessage0iCtri,  BM_GETCHECK,  0,  OL); 

hCtri  -  GetDIgItemChDIg.  IDM_CHORDCCVTFLAG); 
diofd_oplimizatioa_fiag  ~  Ciiit)SendhfessageChCtil,  BM_GETCHEC^  0,  OL); 

hCtri  -  GetDIgUemChDIg.  IDM.EMPDUCALVCDFLAQ; 
enqHrical_VGd_flag  *  Cii>t)SendMessageChCtrl.  BM.GETOIECK,  0,  OL); 


» 


» 


I  • 


I 


I 


I 
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caw  lDM_CANCEL£SFAULTlffiTnN(» :  ( 
EadI>idof(iiDlg.O); 


BO(X.  CALLBACK  export  DcfiwItlSeltingriMgProcCHWND  hPIg,  DINT  message,  WPARAM  wPanun, 

LPARAMIPanun) 

{ 

diar  ia|Nit(20] « **;  //chaiacter  string  for  i/o 

awitch(mwia>e) 

{ 

caw  WM.INTTDIALOG :  { 

sprintfi[input,*%5.4r,CLMAX); 

SelDl^lanTexl(liDlg.IDM_CLMAX.input); 

aprintf[input.'^.4r.TCHDMAX); 

SetDI^temText(hDlg.IDM_TCHDMAX,uiput); 

spriotfl[iiq)iit,"%S.4r,TnP); 

SelDlgItemTexl(liDlg.IDM_TnP,input); 

Wrintfl[input,”Sd”,NPANEL); 

SetIMgItefnText(hDlg.lDM_)^ANEL,inpiit); 

Wrinlf(input,"%S.4r.CDCON); 

SetDlgIleniText(liDlg,IDM_CDCON,input); 


I 


sprintfl[in|wt,"%S.4rjlHVOR); 

SelDlgIteniText(liDlg.IDM_RHV(XLinpiit); 

spriiilfl(ii9iit.’%S.4f'JHUBCHD{0]); 

SetDlgIteinText(bDlg,lZMif_HUBQKXU)l,inpat); 

aprintf[inpiit.*%S.4f'JPLl); 

Sea)IgIleinTexl(liDlg.IDM_PLl,input); 

CbeckDlgBuMoa  (hZ^  JDM^WAKEAUCNMENTFLAG,  (UlNT)wate_alignniem_flag) ; 
ChedcDIgBattoa  (hDIg.  IDM_C1RC(VTFLAG,  (UINT)ciiculation_opUinization_fla^ ; 
ChedcDigButtoo  (hDIg,  ITOi^CIKXtDCOPTFLACI,  (UINT)dx>ni_optiniization_fIag) ; 
OMCidMgiBiiltoa  (hDIg.  im_EMPlRICALVCDFLAG,  (UlNT)eiqrirical_vcd_flag) ; 

ictnniTRUE; 

> 


caw  WM.CXX^IMAND :  { 


return  (BOOL)HANDLE_WM_COMMAND(hDlg,  wPanm.  IParam, 

WMbefiniltlSettingd>lgConiniand_Handler); 


> 


I 
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> 


> 

leiiira  FALSE; 


voM  WMDefiHiiQSettiiigsIMgCoainaiid  Haiidkf(HWND  hDIg,  int  id.  HWND  hwndCU,  UINT 

Goddlotify) 

{ 

dm  iii|wt(20]  -  //chaiacler  string  for  i/o 

nvilch^ 

{ 

case  n»<f_(HClMEFAULT2SETnNGS ;  { 

HWND  hCtrl; 

GetD(gItemText(hDlg.  nM_CLMAX.  input.  20); 

CLMAX  -  dad[iiqiut); 

GetDlgltemText^lg.  IDMJTCHDMAX,  input.  20); 

TCHDMAX  <■  a^input); 

GclDlgItemText(hDlg.  IDM_TnP,  input,  20); 

1  ill*  “  ataf(tnput); 


GetDIglteinTextOiDlg,  IDM.NPANEL,  input.  20); 
NPANEL  ~  aioi(input); 


GetDlgItemText(hDlg.  IDM_CDCON,  input.  20); 

CDCON  =  ato0[input); 

GetDIgltemTextCliDIg.  IDM_RHVOR.  input,  20); 

RHV(X(  B  atofltinput); 

GetDIgItemTextOiDIg.  IDM_HUBCH(»U)1,  input,  20); 
HUBCHD(0]  -  idofl[iiq)ut); 

GetDlgltemTextfliDIg,  IDM_HUBCHCmD2,  input.  20); 
HUBCHD(l)  -  alof(input); 

GetDIgltemTextChOlg.  IDM_PLI,  input,  20);  -«f- 

FLl  -atofCinput); 

GetDIgltemTextCliDIg.  IDM_PL2.  input,  20); 

PL2  «  ato^iiqMit); 


hCtrl  -  GetDIgBemChDIg.  IDM_WAKEAUGNMENTFLAG); 
wakejdignmeatjlag  -  (int)SeodMessage(hCtri,  BMJSETCHECK,  0,  OL); 

Mart  -  GetDIgltemCbDIg,  IDM_CIRa»TFLAG); 

drculation.opdinizt^.flag  -  (int)SendMessage(liCtrl.  BM_GETCHECK,  0,  OL); 

hCtrl  -  GetDIgltemChDIg,  roM_aK»t)CC»>TFLAG); 
dwnijiptindzationjlag  « (int)SeiidMe«sage(liCtri.  BM_GETCHECK,  0.  OL); 

hCtrl  -  GetDIgltemChDIg.  IDM_EMPIRICALVCDFLAG); 


aiipifical_vod_flag  -  (iiil)SeiidMeaage(hCti1.  BKt.GETOlECK.  0.  OL); 

liCtri  -  GelDIgIteinCUMg.  IDM.CCmRATTLAG); 
coB<factioa_iKio_flaig  -  (iiil)SendMess«ge(liCtrl.  BM_GETQlEac.  0,  OL); 


If  the  contraction_ratio_flag  is  not  set,  then  the  contraction  ratio  is  set  to  the  value 

entoed  by  the  user.  Otherwise,  the  defiuih  value  is  used. 

if(lcootiaction_iatk>_flag)  { 

GelDlgIteinText(taDlg.  IDM_CX)NRAT,  input,  20); 

CONRAT  -  ata^u^wt); 


IDM_CANCELDEFAULT2SETnNGS ;  { 
EndDialog(liDlg.  0); 


i  • 


BO(X<  CALLBACK  export  De£uilt2Settin jsD]gProc(HWND  liD) UINT  message,  WPARAM  wPaiam, 

LPARAMlPaiam) 


char  input[20] » 
swilch(message) 

{ 

case  WM.INTTDIALOG ;  { 

sprintKinput."%S.4r.CLMAX); 

SeiDI^teinText(liDlg.IDM_CIMAX.input); 

8piininuvuL'^.4r.TCHDMAX); 

SelI>l0tanText(hDlg,IDM_TCHDMAX.input); 

qiriiitl(iiiput,"%S.4r,TnP); 

SetDl^temText(hDlg.IDM_TTIP,input); 

spfialf(iiipat.”%d'',NPANEL); 

SetDl^temText(hDlgJDM_NPANEL,input); 

tpham.rnnt.’^Ar.ODCON); 

SetDigItemText(liDlg.IDM_CDCX)N,input}; 

spriiilflr>nput.*%5.4r4tHV(Xl); 

SetDlgjtemTexl(hDlg,IDM_RHV(XLuH)ut); 


//character  string  for  i/o 


•  • 
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ipriiilf(iii|Wt.‘SS.4rjlUBCHD[0]); 

SelDlgIiemText(liDlg.IDM_HUBC3i(XU)l,input); 

spriitff(ii4Wt.'^  4r41UBCHD(ll); 

SetDlgRanText(liDlg.IDM_HUBCH0RD2.iiiput); 

spriiitfl[iiiput.*SS.4r^l); 

SetDlgIteinText(liDlg.iDM_PLl,input); 

spriiitf[iii|wt."%S.4r4*L2); 

SetDlgIteiiiText(liDlg.IDM_PL2,iiipiit); 

spriiilf(uipirt,  *%S.4r,C0NRAT); 

SetDlgIieniText(hDIg.IDM_CONRAT,iii|wt); 

GwdcDIgButtoo  (hDlg,  IDM_WAKEALIGNMENTFLAG.  (UINT)wake_aligninent_flag); 
ChedcDIgButtoa  (hDlg,  IDM_CIRCOlPTFLAG.  (lJIhrr)cuculation_optiinization_flag); 
CheckDlgButtoo  (hDlg,  IDM_CHORDCOPTFLAG,  (inNT)chord_optiinizaUon_flag); 
GieckDlgButtoa  (hOlg,  1DM_EMPIRICALVCDFLAG,  (UD>rr)empirical_vcd_flag); 
C^heckDIgButton  (hDlg,  IDM_CONRATFLAG,  (UINT)contniction_ratio_flag); 

feturnTRUE; 

> 

case  WM_CXA4MAND :  { 

return  (BOOL)HANDLE_WM_COMMAND(hDlg,  wParam,  IParam, 

WMbe£ault2SettingsDlgCoinniand  Handler); 

} 

) 

letum  FALSE; 


C.3.8  The  Duct  Settings  dialog  box  functions. 

The  Duct  Settings  dialog  box  is  handled  by  the 
WMDuctSettingsDlgConunand_Handler  and  the  DuctSettingsDIgProc  functions  shown 
below.  No  new  concepts  are  used  in  these  functions. 

void  WMDuctSettingsDIgConunaiid  Handlet(HWND  hDlg,  int  id,  HWND  hwndCtl,  UINT  codeNotify) 

{ 

diar  inpia[20] »  //character  string  for  i/o 

switdi(id) 

{ 

caseIDM_(»a>UCTSEmNGS:  { 

HWND  hCtrl; 

hCtrl «  GetDlgItem(hDlg,  IDM_DUCTMEANLINEFLAG); 
duct_niean_line_flag  (int)SendMessage(hCtrl,  BM_GETCHE(rK,  0,  OL); 


» 


I 


B 


B 


B 


B 
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liCtri  -  GetDlgltemChDIg.  IDM J>UCTRINGVC«TFCHICESFLAG); 
**ct_riiig_vortcx_foices_IUg  >  (iiit)SeiidKilessa8e(liCtrl,  BM_GETCHECX  0.  OL); 

hCtrl  -  GetDIgltenKhDIg,  IDM.DUCTFORCXSFLAG); 
dactJonuJOag  -  (i]U)SendMmage(hCtri,  BM_GETCHECK.  0.  OL); 

hCtfl  -  GetDlgltemChDIg,  ©M.ESTIMATCDUCTCIRCIJLATION); 
eitifflate_diiGt_ciiciilatk»_fl^  -  (iiit)SeodMessage(hCtri.  BM_GETCHECK.  0.  OL); 

GetDlgItemText(hDlg,  IDM_GAPFAC.  input,  20); 

GAPFAC  *  atofCinput); 

GetDIgltemTextChDIg.  IDM_M«»DUCTTHRUSTRATIO.  input,  20); 
piopdler_duct_tlinist_ratio  «  ata((input); 

GetDIgltemTextChDIg.  IDM_DUCTCIRCllLATION,  input,  20); 
estimated_duct_cucu)ation  «  atofi[input); 

> 

cascIDM_CANCELDUCTSETnNG£  ;  { 

EndDialogChDIg,  0); 


BOOL  CALLBACK  _aqioit  DuctSettingsDIgProcCHWND  hDIg,  DINT  message.  WPARAM  wParam, 

LPARAM  IPaiam) 

{ 

char  input{20]  *  //character  string  for  i/o 

switchCmessage) 

{ 

case  WM.INITDIALOG ;  { 

sprintf(input,”%4.3r,GAPFAQ; 

SetDl^temTextChDlg,IDM_GAPFAC.iiiput); 

CheckDlgButtonCM)lg,IDM_DUCTMEANLINEFLAG,CUINT)duct_mean_Une_flag); 

CliedcDl^uttoaChDlg,IDM_DUCTRINGVORTFCmCESFLAG. 

C®'^T)duct_ring_vortex_foices_flag); 

CheckDIgButton  C»»Dlg.IDM_DUaTWCESnJ^G.CUINT)duct_forces_flag); 

Chedd>lgButtonChDlg.IDM_ESTIMATEDUCTClRCULAT10N, 

CUINT)estimate_duct_circulation_flag); 

sprintf(input.*%3.2r,pfopeiler  duct  thrust  ratio); 
SetDtgItemTextChDlg,mM_PIUM)UCTrHRUSTECATIO.input); 

sprintf(input,"%7.6f',estimated_duct_ciicuiation); 


I 


I 


I  • 


» 


ft 


ft 
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> 


Sed)^IIemTexi(U>lf,IDM_IMJCTCIRCULATKM,ioput); 

ntuaTRUE; 

> 

c«e  WM.COMMAND :  ( 

ictuni  (BOOL)HAN1X£_WM_COMMAND(^^  wPuam.  IPuam, 
WMOiKtScttinginigCommand  Handler); 

> 

> 

letun  FALSE; 


C^.9  The  PBD  Scttiags  dialog  box  fuDctioas. 

The  next  two  functions  support  the  PBD  Settings  dialog  box. 

void  WMreDSettingsDigCoininand  HandIer(HWND  hDIg.  int  id.  HWND  hwndCtl,  UINT  codcNotily) 

{ 

char  iiq)ut(81]  - //character  string  for  i/o 
switchfid) 

{ 

case  IDM.CMCPBDSETTINGS ;  { 

HWND  hCtrt; 

GelDIgltemTextfhDlg.  IDM.PBDRUNTniJE,  input,  81); 
qmntfCpbd.mnJitle.  input); 

GetDiglteniTextfhDlg,  IDM_PBDOUTPUTROOT.  input,  9); 
qiriiitfl[pbd_outpot_toot.  input); 


The  PBD  Settings  makes  use  of  auto-radio  buttons  in  receiving  input  regarding  the 
blade  grid  ^Mcing,  the  component  for  w4iich  to  write  files,  the  run  mode,  and  the  plot 
mode.  Unlike  previous  cases,  the  effect  of  the  input  is  not  to  cause  a  flag  to  be  set  or 
cleared.  In  these  cases  the  choice  of  a  particular  selection  causes  a  variable  to  have  a 
i^tedfic  value.  This  requires  the  use  of  the  if  statement  to  determine  the  state  of  the 
buttons  and  assign  the  values  of  the  variables. 

hCtrl  -  GeOHglteiiiCliDIg.  IDM  UNIF(»M); 

if  (SeadMessagefhCtrl,  BM.GETCHECK,  0.  OL))  ISPN  «  0; 

hClfl  -  GelDIgteiiifliDIg.  IDM  COSINE); 

if  (SendMenageChOri,  BM.GETCHECK,  0,  OL))  ISPN  >>  I; 

hCUl  -  GetDIgUemOiOlg.  IDM.HALFCOSINE); 


•  • 


•  • 


i  • 


i  • 
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if(SeiidMesta«e<liCtrl.K»«_GETCHECX  lSPN-2; 


hCtrl  -  GedMglteinCliDIc.  IDM  NACAOSORC); 

MLTYPE  -  (ii«)SeiMA4essa8e(hCtri.  BM.GETCHECK,  0.  OL); 

hCtil  -  Ge(DlgItBni(U)lg,  IDM_PBDCX)MP1); 
if(SeiidMesiase(hCtrl,BM_GEraiECK,0,OL))  pbd.compoocnt  ■>  0; 

hCtil  -  GelDIglteinOiDIg.  IDM_PBDCOMP2); 

(SendMesnge(liCtrl,  ;^_GETCHECK,  0.  OL))  pbd.oompoiient «  1; 

hCtri  -  GetDIgltemCliDlg.  IDM  IMODEl); 
if  (SendMessageChCtrl.  BM.GEltKECIC.  0.  OL))  IMODE  -  1; 

hCtri  -  GetDIgltemOiDIg.  IDM  IM(X>E2); 
if(SeiidMessage(hCtri.BM_GEix»ECK.O.OL))  IM(»E-2; 

hCtri  -  GetDIgltemOiDIg.  IDM_IM(X)E3); 
if  (SeiidMessage(liCtri.  BM.GETCHECK,  0.  OL))  IMODE  =  3; 

hCtri  «  GetDlgIteni(hDlg.  IDM  NPLOTl); 
if  (SeiidMessage(hCtri.  BM.GETCHECK,  0,  OL))  NPLOT  =  1; 

hCtri  -  GetDlgItem(hDIg,  IDM  NPLOT2); 
if  (SendMessage(hCtri,  BM.GCTCHECK,  0,  OL))  NPLOT  >  2; 

hCtri  -  GetDlgIteiii(hDlg.  IDM  NPLOT3); 
if  (SendMessagc(hCtri.  BM.GCTCHECK,  0.  OL))  NPLOT  «  3; 

hCtri  •=  GetDlglteaKhDIg,  IDM  NPLOT4); 
if  (SendMessageOiCtri,  BM.GCTCHECK,  0,  OL))  NPLOT  =  4; 

GelDlg|temText(hDlg,  IDM.NKEY,  input,  20); 

NKEY  »  atoi(input); 


GetDlgIteinText(hDlg,  IDM.MKEY,  input,  20); 
MKEY  »  atoi(input); 

GetDIgIteniText(hDIg.  IDM.NTTER,  input,  20); 
NITER  «  atoi(input); 


GetDlgIteniText(hDlg.  IDM.RADWGT,  input,  20); 
RADWGT  ~  atoi(input); 

GetDlgltemTextChDIg.  IDM.NUFIX,  input,  20); 
NUFDC  >  aloi(input); 


GetDlgIteinText(hDlg,  IDM.CDRAG,  input,  20); 
CDRAG  =  atofi[input); 

GetDlgIteniText(hDlg,  IDM.XULT,  iiqwt,  20); 
XULT  »  att^input); 

GetDlgItemText(hDlg,  IDM.XFINAL,  input,  20); 
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»  « 


•  « 


»  • 


4 


•  • 


•  « 


•  • 


•  • 


•  •  • 


®  •! 


XFINAL  *  ala<(iiipiit); 

GeiDliileiBTex^liDIg.  IDM.DTmOP.  input,  20); 
DTPROP  *■  aioi(input): 


> 


caw  1I»«_CANCXLPBDSETTINGS ;  { 
EiidDialog(liDlg,  0); 


bnrit; 

> 


} 


> 

BOCX.  CALLBACK 
{ 


.export  FBDS;eOingsDlgPtoc(HWND  hDIg,  UINT  message,  WPARAM  wParam, 
LPARAMIPanim) 


char  input(82]  =*  //character  string  for  i/o 

switclKmessage) 

{ 

case  WM.INITDIALOG :  { 


The  way  in  which  auto-radio  buttons  are  use  in  these  two  functions  complicates 
the  initialization  of  the  dialog  box  as  well.  Switches  are  used  to  cause  the  appropriate 
buttons  to  be  checked. 


I 


I 


I  • 


switch  (ISPN) 

{  >  ' 
case0:{ 

CheddtadioButton  (hDlg,IDM_UNIFORM,IDM_HALFCOSINE,IDM  UNIFORM); 
break; ) 

casel'{  -f. 

Chediu(adi(£utton(hDlg,IDM_UNIFORM,IDM_HALFCOSINE,IDM  COSINE);  * 

break; } 

caw2;{ 

CheckRadk^ution 

(hDlg.lDM_UNIP(MlM.IDM_HALFCOSINE,IDM_HALFCOSINE); 

break; }  k 

> 

switch  (IKft>DE) 

( 

case  1:{ 

ChedcRadioButton  (hDIg,  IDM_IMCtt)El,  IDM  IMODE3,  IDM  IMODEl) ;  * 

break;} 

caw2:{ 


» 


•  #  •  •  •  • 
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ChedJUdioButtoo  (hDIg.  IDM_IMO[>El.  IDM_IMODE3.  IDM_IMODE2) ; 

break;} 

caie3;{ 

CheckRadioButtoii  (hDIg,  IDM_1M0DE1.  IDM_IMODE3.  IDM  IMODE3) ; 
brerit;} 

> 

switch  (pbd  oompooent) 

{ 

caseO:{ 

CheddUdioButlon  (hDIg,  IDM_PBDa»4Pl.  IDM_PBDCOMP2,  IDM_PBDCX>MP1) . 
break; } 
case  1;{ 

ChedcRadioBudon  (hDIg,  IDM_n3DC(»dPl.  IDM_PBD(X>MP2.  IDM_PBDCOMP2) ; 
break;} 

} 

if(MLTYre)  CheckDlgButlon  (hDIg,  IDM_BRCX3CETT08.  (UINT)!); 
else  ChedcDIgButton  (hDIg,  IDM_NACA08CIRC.  (UINT)1); 


switch  (NPLOT) 

( 

case  1;{ 

CheckRadioButton  (hDIg,  IDM_NPLOTl,  IDM_NPLOT4,  IDM_NPLOTl) 

break; } 

case2;{ 

ChedrRadioButton  (hDIg,  roM.NPLOTl,  IDM_NPLOT4,  IDM_NPLOT2) 

break; } 

case3:{ 

CheckRadioButton  (hDIg,  IDM_NPLOTl,  IDM_NPLOT4,  IDM_NPLOT3) 

break; } 

case4:{ 

CheckRadioButton  (hDIg,  IDM_NPLOTl,  IDM_NPLOT4,  IDM_NPLOT4) 
break; } 

> 

iRstrlen(pbd_run_title)>2)  ^rintf(input,”%s”,pbd_run_titJe); 
else  ^pfintf(inpot,"%6”,RUN_ID); 
SetDlgItemText(hDlg,IDM_PBDRUNTITLE,input); 

jprintfl[iiq)ut,*3i6*,pbd_outpat_root); 

SetDlgIteniText(hDlg,n)M_PBDOUTPUTR(X)T,in{>ut); 


spfiiitf(inpiit,"%l",NKEY); 

Se(Dlg|temText(hDlg,lDM_NKEY,input); 

qmat£[iiqwt,”9id">4KEY); 

Se(DI|^teniText(hDlg,IDM_MKEY,input); 


sprintfl[input,”34d”,NnER): 

SelD10teinText(hDlg,IDM_NrrER,in|Nit); 

sptiiiti(input,”%d"JlADWGT); 
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I 


I 


I 


« 


« 


< 


Se(DlgItemText(hDIg,IDM_RADWGT.il^)lit); 

8priolf(iiiput.*Sd*.NUFIX); 

SetIMg!teinText(liDlg,IDM_NUFIX,iiiput); 

S|iriiitf(input,"%S.4r.CDRAG); 

Sea>lgIteniText(liDlg.IDM_CDRAG.input); 

spriiitl(iiiiMrt.*%S.4f‘.XULT); 

SetDl^temTexl(hDlg.IDM_XULT,iiiput); 

qHiiitf(iii|)ut.*%S.4r.XFINAL); 

SetDlg|teiiiText(liDlg,IDM_Xl^AL,input); 

^>riiid(input.*%l.3rj}TPR(»>); 

SetDlgIteinText(hDlg,IDM_D‘ITROP,iiipuO: 

return  TRUE; 

} 

case  WM_C(»^4MAND :  { 

return  (BOOL)HAhIDLE_WM_COMMANI>(hDlg,  wParam,  IPaiam, 
WMPBDSettingsDlgConunand  Handler); 

} 

} 

return  FALSE; 

} 


C3.10  The  Project  Settings  dialog  box  functions. 

The  next  four  functions  support  the  single  and  multiple  component  Project 

Settings  dialog  boxes.  No  new  concepts  are  employed  in  these  functions. 

void  WMProjectIDIgConunand_Handler(HWND  hDIg,  int  id,  HWND  hwndCtJ.  UINT  codeNotify) 

{ 

char  input(21I  >=  *”;  //character  string  for  i/o 

switch(id) 

( 

case  IDM.OKntOJECTl :  { 

HWND  hCtrl; 

GetDIgIteniText(hDlg,  IDM_RUN_ID,  input,  21); 

SprintfptUN_ID,  input); 

GetDlgItemText(hDlg,  IDM_INPUTFILE,  input,  20); 
spruitfl[INPUTFILE,  input); 

GetDlgltemTexKhDlg,  IDM_RPM1,  input,  20); 

RPMfO] «  at(rf(input); 


» 


i 


i  • 


i 
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hCirf  -  GetDlgltemChDls.  lDM_EFFECnVEWAKEFLAG): 
cflbctivt_wake_flag  *  (im)SeiMMessage(hCtri.  BM_GETCHECK.  0.  OL); 

GelDlfIteinText(hDig,  IDM_THRUSTESTIMATE.  input.  20); 
thmit.estiiiiaUe  *  alafl[input); 

hCtfl  -  GetDlgIteiii(liDlg.  IDM_TUNNEL(X>ERATIONFLAG); 
tuiuiei_opentioa_flag  «  (int)SendMessage(liCtri,  BM_GETQSCK.  0,  OL); 

GetDlgItemText(hDlg.  IDM J>RCM>RINGTHRUSTRAT10.  input,  20); 
P<'opd)^-™>8L<luust_ratio  >  atnA[ii9ut); 

} 

caselDM.CANCELPROJECTl :  { 

EndDial<^(hDlg.  0); 


BO(X  CALLBACK  oqwrt  ProjectlDlgProc(HWND  hDlg,  UINT  message,  WPARAM  wParam. 
IPARAMIParam) 

{ 

char  input(21|  >■  **;  //character  string  for  i/o 

switchfmessage) 

{ 

case  WM.INTTDIALOG :  { 

sprintf(input,"%6*J>ROJECTFILE); 

SetDlgJtemTe(t(hDlg,IDMJPROJECnnLE,input); 

sprintf(input.*^"JlUN_lD); 

SetDl^temText(hDlg,IDM_RUN_ID,input); 

spfintfl[input,”^*,INPUTFILE); 

SetDlgJtefflText(hDlg,IDM_lNFtnTILE,input); 

qmntfl[input."V«6.2rjtPM(0]); 

SetDI^teniText(hDlg,IDM_RI^l,input); 

qirint£[iiqMt,”%6.2r,thrust_estiinate); 

SetDIgItemText(hDlg,IDM_THRUSTESTIMATE,inpot); 

0)ed(DlgBultc»(hDlg,n^JElTECTIVEW/yCEFLAG,(UlKT)e&ective_wake_f)ag); 
ChedcDIgBmtoa^lg,  IDM_TirNNELOPERATIONFLAG,(UINT)tunnel_operation_flag); 

4iriittf(input,”%3.2r,pfopeller_ring_thrust  ratio); 
Sea>l^temText(hDlg.IDM_PR(»>RINGnOlUSTRATIO.input); 


return  TRUE; 


i 


iWM_COMMAND:{ 

letum  (B0(X91ANDI£_WM_(X»<MANI^lS.  wPwun,  IPaiam. 

WKffn^lDlgCominand_Handler); 


letum  FALS; 


void  WMPiqiect2DlgCoiiunaiid_Huidler(HWND  hDIg,  int  id,  HWND  hwndCtl,  UINT  oodeNotify) 


diw  inputlll]  - 
switd>(id) 

{ 

case  IDM  C»CmOJECT2 :  { 


//character  string  for  i/o 


HWND 


GetDlgItetnText(hDlg,  IDM_RUN_ID,  input,  21); 
sprintf(RUN_ID,  input); 

GetDlgIteniText(liDlg,  IDM_INPUTFILE,  input,  20); 
spiintfl[INPl]TFILE,  input); 

GetDIgltemTextChDIg,  IDM  RPMl,  input,  20); 

RFM(0]»atafl[input); 

GetDIgltemTextChDIg,  IDM_RPM2,  input,  20); 

RPM[1] «  ataf(inpiu); 

hCtrl  -  GetDlgltemChDIg,  IDM.EFFECTIVEWAKEFLAG); 
efifecttve_wake_llag  >  (int)SenA4essage(hCtrt,  BM_(XTCffiCK,  0,  OL); 

GetDIgltemTextChDIg,  IDM_THRUSTESTIMATE,  input,  20); 
thrustjestimate  atcif(input); 

hCtri  »  GetDlgltemChDIg.  IDM_TUNNEL(XCRATIONFLAG); 
tuniid_opeiatioa_flag  -  Cint)SendKfassageChCtrl,  BM.GETCHECK,  0,  OL); 

GetDIgltemTextChDIg,  IDMJTORQUERATIO,  input.  20); 
toeque.ralio  >  aiofCinput); 

hCtrl  -  GetDIglteiiiChDig,  IDM_CIRCXX>TWAKEALGNFLAG); 
ciK_opt_wake_aligiuiient_llag  Cuit)SeiidMessageChCtrl,  BM.GETCHECK,  0,  OL); 

hOA  •  GetDIgnemChDIg.  IDM_USEMANUALDAMPING); 
esliiiialejlaiiipiiig_flag  -  Ciid)SeiidMessageChCti1,  BM.GETCHECK,  0,  OL); 

GeOngllemTextChDlg.  IDM_MANUALDAMPING.  input,  20); 
damping  afodCiqwt); 


•  • 


CMe  IDM.CANCELPROJECn :  ( 
EadDialogOilMf,  0); 


bicak; 

} 


} 


B(XX<  CALLBAOC  export  Pn9ect2DI|Pioc(HWND  hDlg,  UINT  memgc.  WP  ARAM  wPwain, 
LPARAMIPanuii) 


char  iiiput(21I »  **; 


//character  rtring  for  i/o 


8wildi(ineaage) 

{ 

caie  WM.INITDIALOG :  { 

rtiriBd(iiviit,'^*J>ROJECTFILE); 

SelDl^temText(hDlg,IDM_n(OJECniLE,iii|Nrt); 

SetDI^(emText(hDIg.IDM_RUN_ID.iiiput); 

spriIltfl[il^lut,'^^I^IPlJTFILE); 

SelDl^teiiiText(hDlg,IDM_INPUTFILE,iiiput); 

sptiiid(iiipiit,*%6.2rjtFM(0]); 

SelDl^teoiText(hDlg.IDM_R^l,inpiit); 

SetDlgIteiiiText(hDlg.IDM_RM<2,iiipiit); 

ipiintf0iV«t,”%6.2r,thrust_estiiiiate); 

SetDI|^leinText(hDlg.IDM_THRUSTESTIMATE,iiipiit); 

QieGfcDlgBiittoii(hDlg4DM_EF7ECTIVEWAKEFLAG,(UINT)effective_wake_flag); 
ChedcDlgBuUoiiO>DIg,IIM  TUNNEljOFERATIONFLAG,G/nfI7tuiind  ope^on  flag); 
Cbo±DlgPmooCtDlgJDMjCmC(Xl^ 

(lIINT)ciicjopt_wakejaligiiineiit_fla^; 

CheckDfgBiiaoa(hDig,lDM_l^MANU^J}AMPING,(UINT)estiinate_dainping;_fIag); 

spriiitf[iiipiit,"%4.3r,daiiipiii^; 

SetIMgIteinText(hDlg,mM_MANUALDAMPING,ii4Wt); 

sprjalf0i>pat,*%3.2r,tofqae_ratio); 

SetIMfIlemText(hDlg.IN4_T(XlQUERATIO,il^xlt); 

letutiiTRUE; 

> 


caoeWM_CXXt4MAND:{ 
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fctun  900L)llANDL£_WM_C0MMAND(hDlg.  IPanun. 

WKiPitjectlDicCommaiid  Handler); 

} 

> 

idiiniFALSE; 


» 


03.11  Tkc  ABS  Rules  Streugtli  Settiugs  dialog  box  functions. 

The  WMABSDigCoimnand_Handler  and  ABSI^gProc  functions  shown  bdow 
initialize  and  retrieve  data  from  the  ABS  Rules  Strength  Settings  dialog  box. 


void  WMABS>lgCoaunand  Handler(HWND  hDIg.  int  id,  HWND  hwndCtl,  UINT  codcNotify) 

{ 

char  inpia(20]  *  //character  string  for  i/o 

switdi(id) 

{ 

case  IDM_OICABSRULES:  { 

HWND  hCtrl; 

hCtrl  ~  GetDlgItein(hDig,  IDM_FIXEDPrrCH); 

prapeller_type_flag  ~  (uit)SendVfessage(hCtrl,  BM^GETCHECK,  0,  OL); 

hCtrl  -  GetDIgltemOiDlg.  IDM  MNBRZ); 
if  (SendMessageOiCtrl.  BM.GCTCHECK,  0.  OL)) 
piopeller_niaterial  manganese^btwize; 

hCtrl  -  GetDIgltenKhDlg,  IDM  NIMNBRZ); 
if  (SendMessagefhCtil,  BM.GCTCHECK,  0,  OL)) 

piopdler_niaierial  =■  nid(d_inanganese_bronze; 

bCtri  -  GetDIgltemOiDlg.  IDM.NIALBRZ); 
if  (SendMessageOiCtrl.  BM.CXTCHECK,  0.  OL)) 

piopeiler_nialerial  -  nidcel.aluniinumjbronze; 

-.1- 

hClrl »  GetDIgltemOiDlg,  IDM  MNNIALBRZ); 
if  (SendMessageOiCtrl.  BM.GEIXSIECIC,  0.  OL)) 

pfopdler_m8teiial  ■■  manga  nesc_nickel_aluminuni_bronze; 

hCtri  -  GetDIgltemOiDlg.  IDM  CASTIRON); 
if  (SendMessageOiCtri.  BM.GETCHECK,  0.  OL)) 
pnpdler_malerial  ■>  cast_iroa; 

hCitl  -  GetDIghemOiDIg,  IDM  USERDEFINEDMATERIAL); 
if  (SendMessageOiCM,  BM_C^iX31ECK.  0,  OL)) 
propdkr.malerial  -  iiser_defined_material; 

GelDlgItemText(hDlg,  IIM4_HUBRAKE,  iiqaa,  20); 
rakefO] « iUid[in|Nit); 


i 


i  • 


K 


B 
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GeaMgltemTexKliDIg.  n»if_'nPRAKE.  iiyitf,  20); 

nke(lI"aio<(uvut); 


GetDlgIteiiiText(liDtg,  IDM_USERDEFINEI}UTS.  ioput,  20); 
iiwlerial_ooaMtiitIiiser_defi^_inaterul](0]  -  atol(iiipiit); 

GetOigltemTextChDIg.  IDM_l^EROEFlNEOSW.  input,  20); 
ninlennl_ooiiatant(uaer_<lefiiied_inalerMl](l)  -  alo^input); 

} 

case  IDM.CANCELABSRULES :  { 

EadDialogOiDlg.  0); 


BOC»L  CALLBACK  .export  ABSDigPioc(HWND  hDIg,  UINT  message, 
WPARAM  wParam,  LPARAM  IParam) 

{ 


diar  iiq>utI20]  > 


//character  string  for  i/o 


switch(message) 

{ 

case  WM  INTTOIALOG ;  { 


spriirtf(input,*%4.3r.rake(0]); 

SetDlgItBniText(hDIg,lDM_HUBRAK£.input); 

sprimf(input,*%4.3r,iake{l]); 

SetDlgJteniText(hDlg,IDM_.TIPRAKE,input); 


sprintfl[input,*%4.  ir,niaterial_oonstant[propeUer_materiaI](0]); 
SetDlgItemTexl(hDlg,IDM_USERDEFINEDUTS,iiiput); 

q)rintf(ii9ut,*%4.  ir,material_oonstantIpropeUer_material]|  1]); 
Sea>lgIteinText(hDlg,IDM_USERDEFINEDSW,input); 

switch  QMOpeller  material) 

{ 

case  manganesejbronze:  { 

ClipdtRadioB«tton(hDlgjlDM_MNBRZ,n>M  USERDEFINEDMATERIAL, 
IDM.MNBRZ); 

break;} 

case  nid(d_niangane8e_bronze:{ 

CliedAndi^iittoii()iDig,II»4  MNBR^IDM  USERDEFINEDMATERIAL, 
IDM.NIMNBRZ);" 

break;} 

case  nickBi_aluiiiinuni_bn>oze;{ 

CheckRarh^uttoaOiE^gJIM  MNBRZ,IDM  USERDEFINEDMATERIAL, 
IDM  NIALBRZ); 


bwik;) 

CTwdJUKiwBMttoii(M31g.n»4_M>fflRZ.II^  USERDEFINEDMATERIAL. 
irai  MNNIAUmZ); 

brak;} 

cwecMt_iraa:< 

ClieckRadioftirioii(hDlg.I^  MNBRZ,irak4  USERDEFINEDMATERIAL. 
IDM  CASTIR(W)T 

braik;} 

caae  aKrjkfiiied_Bia<enaI:{ 

rhcdtRa(iioBuOoo(hDlg.IDM_MNBRZ.IDM_USERDEFINEDMATERIAL. 

IDM  USERDEFINEDMATERIAL); 

bfo*;} 


switdi  (propelkr_^_flag) 


CheckRadkfiutton  (hDlg,  IDM_FIXEDPITCH.  IDM  CONTROLLABLEPITCH, 
IDM  nXEDPITCH)  ; 

break;} 

caaeO;{ 

ChedcRadk^tUm  (hDlg.  IDM^FIXEDPITCH.  IDM  CONTROLLABLEPITCH. 
IDM  CONTROLLABLEPITCH) ; 

break;} 

} 

return  TRUE; 


»  • 


caseWM_CCm(AND;{ 

return  (BOCX.^lANDLE_WM_COMMAND(hDlg.  wPaiam.  IParam. 

WMABSDIgConunand  Handler); 

} 


return  FALSE; 


C.3.12  The  PBD  Plot  Gcometiy  dialog  box  functioiu. 

The  PBD  Plot  Geometry  dialog  box  is  the  only  dialog  box  in  PLL  that  is  not  called 
by  a  main  menu  sd^on  either  directly  or  indirectly.  It  is  called  by  double  clicking  the 
right  mouse  button  on  a  PBD  plot  in  the  Plot  \^ewar  window, 
void  WMPBDPRYDIgCoainiand_Handler(HWND  hDlg.  int  id.  HWND  hwndCU.  UINT  codeNotify) 
char  inputlMl-”;  //character  string  for  i/o 


I 
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miiGliCkO 

{ 

CWB  IDM.OKPBDniY.  { 


The  pitch,  roO,  and  yaw  angles  are  stored  in  memory  in  the  units  of  radians,  but  «re 
disputed  on  the  screen  and  iiqHit  by  the  user  in  the  units  of  degrees.  The  conversion  is 
done  in  the  assignment  statements  in  the  Cofnmand_H8ndler  function  and  in  the  ^rintf 
fiinctions  in  the  DIgProc  function. 


GelDIgItemTexKhDIf.  PBIX>ITCH.  iivut.  20); 
pteh  -  n*aia<(iii|Hit)/180.0; 

GetDtgIteaiTexl(liDlg.  IDM  PK>ROLL,  input,  20); 
raU  -  n*atat(iivut)/180.0;  ~ 

QetNgBemTextOiDls,  IDM_FBDYAW.  input.  20); 
yaw  >  PI*aUif(input)/180.0; 

Gea>lgIteinTc3(t()iDlg,  IDM_PBDSCALE,  input,  20); 
scale Jbclor  -  al^input); 


case  1I»1_CANCELPBDPRY ;  { 

EndDiaiog(IiDlg,  0); 

break; 


BO(X<  CALLBACK  erqioit  FBDPRYDIgProc(HWND  hDIg,  UINT  message,  WPARAM  wParam, 
LPARAMIPaiam) 


char  inpul(20)  - 
swit^measage) 

{ 

caseWM  lNrTDlALOG:( 


//character  string  for  i/o 


apciad(inpot.'^.ir,pilch*lSO.O/PI); 

SetDighemTexl0iDlg.llM4_PBDPrrcfUnput); 

ipri«fl9npal,'^.lf'.rril*lSO.O/PD; 

SelD|ffieaText(liDifJDM_PBDROLL,i^ 

apriatf[iiipiit.*%4.  irjraw«180.0/PD; 
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SetDifIteaiTexi(U>lf.nM_FBDYAW,iii|Mt); 

q|Miall(tii|wt.*%4.  ir3cak_&clor); 
SetIH|^eaTn[t(UMg,ll^_FBDSCALE.iiiput); 

ittnmTRUE; 


} 


) 


cawWM.COMMAND:  { 


> 


reliini  ^(XX.VHANDLE_WM_COMMAND(hDlg.  wPvam,  IPanun. 

WKTODPRYDigCoininand_Handler); 


} 


retuni  FALSE; 


CJ.13  The  OptimizatioB  Data  dialog  box  functions. 

The  Optimization  Data  dialog  box  is  handled  by  the  two  functions  shown  below. 

void  \VM(XniMIZATIONDIgCoiiuiiand_Han^  hDIg,  int  id.  HWND  hwndCU,  UINT 

codeNbtiiy) 

{ 

char  input(20)  =  **;  //character  string  for  i/o 

switch(k!) 

( 

case  IDM_OKCH>TDATA:  { 

HWND  hCtri; 


If  there  is  only  one  component  in  the  project,  the  opt_comp  flag  is  set  to  one 
regardless  of  the  user  input.  Otherwise,  the  flag  is  set  in  the  usual  manner. 


ifl^J)EV-»l)opt_oonq)  -1; 
daef 

hCirl  -  GetDlglteiiKhDlg.  IDM  (X>TCm(Pl); 
if  (SendMestapeOiCtri.  BM_GEiX»ECK.  0.  OL)) 
opt.oomp*  1; 

hCtri  -  GetDIglteiiiQiDlg.  IDM  OPTCOMP2); 
if  (ScadMenagefhCtrl,  BM.GEIXllECK.  0.  OL)) 
opt.comp  »  2; 

> 
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» 
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GcdHiHemTextCliDIg.  lI»4_(X>TKEQrniRUST.  inpirt.  20); 

-  alai(iiiput); 

GedMgIteniTextOiDig.  llMi(_(VTT(MQCOEFF.  input,  20); 
tonLOoeff  -  atai(iii|wt); 

EndDialogCbDIg,  0); 

brariq  } 

> 

> 

BOCX.  CALLBACK  .export  CXTIM]ZATIONDIgProc(HWND  hDig.  DINT  message.  WPARAM 
nfteun, 

LPARAMlPanm) 

{ 

char  input(20]  *  //character  string  for  i/o 

switch(message) 

{ 

case  WM.INTTDIALOG ;  { 
switdi(opt  comp) 

{ 

case  1:{ 

ChedcRadkAutton  (hDlg.  IDM  OPTCOMPl.  IDM  OPTCOMP2.  IDM.OPTCOMPl); 

break;} 

ca8e2:{ 

ChedcRadioButtoa  (hDlg,  IDM_0PT(X»4P1.  IDM_OPTCOMP2.  IDM_OPTCOMP2) ; 
break; } 

} 

spriiitf(input,”%9.2r,tlirust_req); 

SetDlgItanText(hDlg.IDM_OPTREQTHRUST,input); 

spriiit£[iiipat,"%S.4r,t(Hqjooeff)'> 

SetDl^lemText(hDlg,IDM_(X’11XKQCOEFF,input); 

letamTRUE; 


> 

caseWM_C(»<MAND:  { 


} 


return  (BO(X<)HANDLE  WM  C(M4MAND(bDIg,  wPatam,  IParam, 

~WMC»TIMIZATIONDigCoinmand_Handler); 


} 


return  FALSE; 


} 


»  • 


i  •  • 


B  • 


i 


B  • 


C,3.14  The  About  dialog  box  functions. 
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The  About  dialog  box  is  handled  by  the  last  tvra  functions  in  this  section. 

voidWMABOUTDlcCMUHuid  HsnyertHWND  hlMg.  iitt  id,  HWND  hwndCU.  UIKT  codeNo^ 

{ 

switcb(id) 

caKll»i4_OKABOUT:{ 

EadDialog(liDi(,  0); 

Irak:  } 

) 

> 

BOCX.  CALLBACK  .eqmt  ABOUTDIgProc(HWND  hDIg.  UINT  message.  WPARAM  wParam, 
PARAMIParam) 

{ 

switdKmessage) 

{ 

case  WM.INITDIALCMj  :  { 
return  TRUE;  } 


caaeWM_C(»4MAND:  { 


return  (BOOL)HANDLE_WM_COMMAND(liDlg,  wParam,  IParam, 
WMABOUTDigCommand  Handler); 

> 


return  FALSE; 


APPENDK  C.4 


The  PLL  output  functioBS. 


i 


C.4  The  PLL  output  functions. 

The  PLL  Windows'll  application  uses  twelve  different  ftinctions  to  draw  graphical  ^ 

output  to  the  monitor  and/or  system  prints.  Four  of  the  functions  are  used  exclusively  for 
PLL  output.  Six  are  used  exclusivdy  for  PBD  output  and  two  provide  PLL  and  PBD 
output.  In  addition  to  the  functions  that  provide  monitor  and  printer  output,  two  ^ 

fiinctions  provide  output  in  the  form  of  text  files.  The  output  function  declarations  are 
listed  bdow  in  the  order  in  which  they  will  be  presented. 


//PLL  output 

void  paintbld(HWND  hWnd); 
void  paintwake(HWND  hWnd); 
void  piuntplot(HWND  hWnd); 
void  printptot(HDC  hDC); 

//PLL  and  PBD  output 
void  paintout(HWND  hWnd); 
void  printout(HDC  hDC); 

//PBD  output 

void  paint_graph$(HDC  PaintDC,  POINT  origin,  FILE  •plot,  int  color); 

void  pMnt_hub(HDC  PaintDC,  POINT  origin,  FILE  *plot); 

void  paint _g^)OIDC  PaintDC,  POINT  ori^n,  FILE  •plot); 

void  paint_vcp(HIX^  PaintDC,  POINT  origin,  FILE  •plot); 

void  paint_cmv(HDC  PaintDC,  POINT  origin,  FILE  •plot); 

void  paint_rdc(HDC  PairtDC,  FILE  •plot); 

//text  file  output 

void  write_output_file(HFILE  out); 
void  write_pbd_files(void); 


The  output  functions  used  in  PLL  are  similar  to  those  used  in  VLL  and  VLMLE. 
The  explanations  provided  here  will  assume  that  the  output  file  descriptions  included  in 
Appendices  A  and  B  are  understood. 
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C.4.1  Tke  paintbld  function. 

The  paintbld  function  is  used  to  draw  blade  data  on  the  Blade  Viewer  window.  It 

is  not  used  to  draw  output  to  the  system  printer.  It  draws  cartesian  plots  of  non- 

dimensional  diord,  thickness,  drag,  and  circulation  of  the  blades  for  component(s)  1  (and 

2)  and  for  the  ring  in  the  case  of  ringed  propdlers.  The  handle  of  the  Blade  Viewer 

window  is  passed  as  the  argument  of  the  function. 

void  poiiiibtiKHWND  hWod) 

{ 

;**««•«••«*«•*•««*««*«««***«*«•*«**«**•«****«***«***•***««•********«* 

*  declare  variables  that  are  defined  in  the  pU.c  file  and  that  * 

*  will  be  used  in  this  Auction  * 

«««««««««•*««»•«««««*«*•««*«*««**««**«««**«***•***•***•**«***•*•**•*•/ 


The  paintbld  function  plots  data  conttuned  in  the  global  variables  declared  below. 

The  plot  data  is  not  read  from  a  data  file. 

extern  char  BLDINImax_comp]f21], 

ringed_propeller(max_comp); 

extern  int  LOEV,  pr(yect_flag.  MRPIN[niax_coinp], 

MBIN(max_comp]; 

extern  float  XRPIN(max_rad](niax_compl, 

XCHD(max_iad][niax_comp], 

XTHK|inax_rad][niax_comp], 

XCD(niax_rad](max_comp), 

XGImax_rad][niax_comp], 

BAR(inax_oonipI, 

BANGIN(aiax_ang][niax_oomp], 

BCHDIN(niax_angj[niax_comp], 

BTHKIN(niax_ang][niax_oomp], 

BCDINIniax_ang][niax_oonip), 

BClRIN(niax_ang][niax_oomp]; 

*  Variable  declarations  * 

*«««««««««««•*««««***«•*«««•«•««•*«**«*«*««**««*******•**********««•*/ 

PAINTSTRUCT  ps;  //paint  structure 

HDC  BladePaintDC;  //handle  of  the  device  context 

HFONT  hFont,  //fonts  for  drawing  alphanumerics 
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» 


» 
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hVatFont. 

KXdFoat; 

HFEN  liPlo0eii(4](2].  Upeas  for  drawing  (dots 

hStandaidPea. 
hOUPea; 


LOGFONTlFom; 


//logical  fimt  stnictuie  for 
//creating  the  fonts 


HmtUSH  hBnHh, 
hOldBruah; 


//brashes  for  drawing  on  the 
//screen 


4 


4 


POIhrr  origin(2]-{{35.3}. 

(343  3}}. 
origin jgraph. 


point(inax_rad]; 


4 


4 


4 


int  delta_y  » 100, 
length. 


components  to 


nuniber_(tf_graphs; 

//begra^rhed 


float  max.chord,  inin_choid, 
maxjhidc,  niin_thick, 
inax_drag,  min_drag, 
niax_ciic,  niin_circ; 

float  width,  height, 
delta_diotd. 
deltajhidc, 
detta.drag, 
delta_circ; 


char  biiflfer(l20]; 


4 


//origins  rtf' the  {dots  of 
//  components  1  aitd  2 
//temp  storage  of  the  origin 
//  of  the  graph  being  plotted 
//point  structures  used  to  plot 
//  the  parameters  in  the 
//  form  of  polylines 

//vertical  graph  spacing 
//length  of  chara^r  strings 
//loop  counters 

//the  number  of 


//max  and  min  values  for  the 
// four  parameters 


//displiQr  size  scaled  to  640/480 
//differential  between  the  max 
// and  min  values  for  the 
//parameters 


//character  string  used  for 
//  text  output 


The  painting  process  is  started  using  the  Be^nPaint  function.  If  a  project  is 
currently  open,  the  appropriate  data  is  plotted.  Otherwise,  the  bulk  of  the  code  is  slapped 
and  the  painting  process  is  terminated. 

//create  the  device  context 
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BteddPftiatDC  -BcfiiiFki^  Aps); 

// if  a  ptqject  is  coneatly  open,  dnnv  the  blade  date 
ifl^ivqiect_fla^{ 

The  size  ofthe  di^lay  area  is  calculated  so  that  the  output  may  be  made 

indqiendent  of  the  q;>ecifications  of  the  monitor. 

//delennine  the  width  of  the  disiday  in  pixels  and  the  height  of  the  diq>lqr 
// in  raster  lines  and  cast  them  as  floats 

width  » (flom)GetDevioeCap6  (BladePaintDC,  H(StZRES); 
height  -  (float)GetDevioeCaps  (BladePaintDC.  VERTRES); 

//since  the  normal  diqday  aspect  ratio  is  4  to  3.  ensure  that  the  graphical 
// output  mask  by  the  program  is  in  that  aspect  ratio 

i£[(width/height)>(4.0/3.0)) 

width  ~  hdght*(4.0/3.0); 
else 

height -width*(3.0/4.0); 

Three  fonts,  eight  pens,  and  a  brush  are  aeated  for  the  purpose  of  drawing  the 

output. 

//create  fbnts  fbr  drawing  alphanumeric  output 

hFont  -  GetStocU'ontCDEVICE.DEFAULT.FONT); 
GelOlsiect(liFoot4ize(^[LOCiFONT),AlFont); 
tFonLUHeiglit  -  -8; 

hSmallFont  *  CreateF(mtIndiiect(AiFont); 

GetOI>ject(liFoat,sizeof(LOGFONT),AlF(»t); 

IFontlffiacapement  -  900; 

IFonLlffidght  >  -10; 

h VeitFont  -  CreatePoatIndirect(AlFont); 

//create  pens  for  drawing  plots 

hPlotPenlOKO]  -  CieatePen(PS  S(HJD,  1.  RGB(2S5,0.0)); 
hPlotPmi(l][0]  -  Cieatd>en(PS  SCX.ID,  1.  RGB(0,25S,0)); 
hPlotPen(2][0]  -  CieatePenOPS  SCH.ID.  1.  R(S(0,0.2S5)); 


liPlo(Ptn(3]IO]  -  Cieirtd>en(PS_S(X.ID.  1.  RGB(255.0.25S)); 


iiPk)tPeiiIO](l]  -  CKalePai(PS_DOT.  1.  RGB(2SS.0.0)); 
liPlotPen(l](l]  -  CitatePenCPS  DOT.  1.  R(S(0.2SS.0)); 
liPlotPeo(2](l]  -  Creald>iBii(PS_DOT.  1.  RGB(0.0.255)); 
hPtolPenfSHl]  -  CieatePtn(PS  DOT.  1.  RGB(2S3.0aS5)). 


hStendardPen  »  CiealePeii(PS_SOLID.  1.  RGB(0.0.0)); 


//create  and  adect  a  holknv  brash  so  that  ellipses  and  rectangles  will 
//not  overwrite  pre-existing  graphical  output,  also  save  a  handle  to  the 
//original  brush 


hBrush  -GetStochObject(H(XJLX)W_BRUSH); 
hOMBrush  »  SelectObject(BladePaintDC.hBrush); 


The  y  axes  are  labeled  using  the  vertical  font.  The  file  names  used  in  the  project 
are  printed  at  the  top  of  the  appropriate  graph. 


//select  the  vertical  font  and  label  the  y-4xes  of  the  plots 


hOldFont  =  SelectFont(BladePaintDC.hVertFont); 


//select  the  standard  pen 


hOldPen  =  SelectPen(BladePaintDC,hStandardPen); 


•  • 


//align  the  text  such  that  it  is  centered 


SetTextAlign(BladePaintDC,TA_CENTER); 


length  »  sprintf(buffer.  ”chord/D”); 


TextOut(BladePaintDC.(intX(origin|0].x-30)*width/640.0), 

(intX(origin[0].y+l  ♦delta_y-40)*hcight/480.0). 
buffer,  length); 


length  =  sprintf(buffer.  "thidmess/D"); 


TextOut(BladePainfDC.(intX(origin[0].x-30)*width/640.0), 

(int)((origic'0].y»-2*delu_y-40)*teight/480.0), 
buffer,  length); 


leiigth  »  q>rintfl[buffer,  ”CD"); 


TextOut(Bladd>aintDC,(intX(origin(0].x-30)*width/640.0), 

(intX(origin[0].y+3*delta_y-40)*kight/480.0), 
buffer,  length); 


length  8printf(buffer,  "Non-dim  cite"); 


TexlOut(BiadePaintDC,(intX(ongin[0].x-30)*width/640.0), 


•  i 
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(i«X(oricii40].)^«deltt_y-4())*hetglit/4«).0). 
buffo,  leagdi); 


//adect  Uw  WMBHd  ti»  fbot  and  dnw  the  file  names  for  both  compoaenis 
// at  file  top  of  fiw  graphs 

SeiectFont(Bladd*ainlDC,hFoiit); 
fQc(MH)>I<LDEV>fH-)  { 

length  -  aprinthMfo.  "BLADE  «Kd:  Ss",  M+1.  K1>INIM*21]); 

TextOut(BladeFaintDC,(intX(origin|M].x+155)*width/640.0), 
(intX(oiigin(M].y)*heighi/480.0). 
bulfo.  length); 

length  ~  sprintf(buffo,  "Non-Dtmensioaal  Radii"); 

TextOut^ladtfaintDC,(intX(origin(Ml.x-i-155)*width/640.0), 
(intX(origin(Ml.yH  10)*height/480.0), 
buflfo,  length); 

> 

//for  the  ringed  propeller  case,  label  the  graphs  appropriately 
if((riiiged_piopeller(0]»(char)(89))|Kruiged_propeller{l}^charX89))) 


length  =  sprintfi[buffer,  "RING  DATA"); 

TextOut(BladePaintDC,(iiitX(origio(l].x-*-155)*ividth/640.0), 
(intX(origin(l].y)*lieight/480.0). 
buffo,  length); 

length  ’*  sprintf(buffo,  "Non-Dimensional  Angles"); 

TextOut(BladePaintDC,(intX(origin(ll.x+15S)*widfii/640.0), 
OiitX(origin(  l).y^  10)*hiei^t/480.0), 
buffo,  length); 


SetTextAlign(BladePaiiitDC,TAJLEFT); 
//tdktX  the  small  fimt  for  labeling  the  x-axes 

SdectFoitt(BladtfaintDCJiSmallFont); 


•  • 
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The  a|^>ro|>riate  number  of  graphs  is  drawn  based  on  the  nund)er  of  components 

and  if  a  single  conq)onent  projea  is  a  ringed  propdler.  The  vertical  lines  for  the  gn^>h  are 

then  drawn  as  a  series  of  rectangles.  The  horizontal  lines  are  drawn  by  using  MoveTo  and 

LineTo  calls  nested  in  two  for  loops.  Hie  x  axes  are  then  labeled. 

//delenwiie  the  miinber  of  gnphi  by  oontideriBg  LOE  V  and  whether  a 
//  single  component  is  ringed 

nianber_oCgmpiis  -  UXEV; 

ifi[(ringed_propeller(0]— (char)(89))|| 

(ringed_propdler(  l]«^cliarXS9))) 

number_of _grapiisf+; 

//draw  the  vertical  lines  of  the  graphs  by  drawing  a  series  (tf  rectangles 
for(M^>I<nuiriber_af _gn4»lis;M++){ 
fi)r(j=lj<6-j++){ 

Rectangle(Bln(tfaintDC,(intK(origin[M].x+155-j*27)*width/640.0). 

(imX(origin[M].y+20)*Mght/4a0.0), 

(intX(origin[M].x+15S-ij*27)*width/640.0). 

(intX(originfM].jr+395)*hei^t/480.0)); 

> 

//draw  the  horizontal  lines  for  the  grafdis 
for(i=0;i<4;i++){ 


for(i“lj<4j++){ 


MoveTo(BiadeiPaintDC,(intX(origin|M].x4-20)*width/640.0), 

(iinX(originIM].y+2(H(i*ddta_y>+(i*20))*beight/480.0)); 

LineTo(BladePaintDC,(intX(origin(M].x+290)*width/640.0). 

(intX(origin(M].yf2(H(i*(folta_y>+0*20))*height/480.0)); 


»  • 


» 


T 


i 


//coaqriete  the  gnq>hs  by  drawing  a  vertical  line  at  the  center  of  the  graphs 

MoveTo(BladePaintDC,(iotX(origin(M].x-»-l5S)*width/640.0). 

(intX(originIM].y+20)*height/480.0)); 

LineTo(BladePaintDC,(intX(origin|M].x+155)*width/640.0), 
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(iatX(origia[M].y+395)*kd(iil/4a0.0)); 


//taMthex-wi 

kiwlk  -  tfrimSjMtki.  *S2.ir  j/10.0); 

TexlOiX^laiU'lialDQCu«X(oticia(M].xfl(Hi*27)*w^^ 
(iatX(origiiilM].y+400)*bei|^4S0.0X 
balfa.  kaglh); 

> 

> 


A  for  loop  is  used  to  perform  the  calculations  and  GDI  calls  to  scale  and  draw  the 
output  fiw  the  graphs  for  each  component. 

//loop  through  both  components 
lbf(M-0a4<LDEV;M4-t-){ 

The  maxiinum  and  miiunium  values  for  each  of  the  parameters  is  calculated.  If  the 
values  are  the  same,  th^  are  artificially  separated.  The  difference  between  the  maximum 
and  minimum  values  is  then  calculated. 

//initialize  the  naximun  and  miaimum  values  for  eadi  paiameter  to  be  plotted 
naxjchonHI.O;  niin_cliofd"1.0; 
niax_ddGk^.O;  niin_tliidi>1.0; 
nmxjinr  0-0;  niin_dnig- 1.0; 
naxjciio*  0.0;  niin_cifo- 1.0; 

//for  cadi  radios,  compare  the  parameter  value  to  the  previous  maximum  and 
// vainer  and  stole  the  aMK/aun 

fi»0^J<MRPINpi4);rf+){ 

niax_dofd  *  niax(niax_dioid,XCHDO]IM)); 
minjdmd  -  niin(niinJdioid,XCHP01M); 

maxjlhidc  -  niax(niax_thidc,XTHKO]lMD; 
nia^thkk  «  niin(niin_thidc,XTHKO](M]); 
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iiiax_dnig  -•  iiMix(iMX_dm^CDiiHMD; 
■uajbaf  <■  miii(ain_dnig.XCD(jl[^; 

aiax_ciic  ~  ln■x(llMlx_cuc^G^iHM]); 
oiiBjciiG  -  iiiiii(iBia_ciicJCGOIM); 


} 

//if  the  maxiawi  and  minimiiin  values  are  dote  together,  spread  them  apart 

iflCaiax_chanl  -  nia_diont<del) 

{mexjciionl  *  iiiax_dionl40. 1; 
iniii_dionl  *  iiua_diord4).l;} 

if(iiiex_tliidt  •  inui_tlikfc<del) 

{nux_tliidc  -  maxjthick-K).!; 
iiiia_tliick  » iiiiii_tliicfc-0. 1;} 

il(inax_dnig  -  iiiin_dfag<dd) 

{iittx_dng  *  iiiax_dng^.01; 
iiiia_dfag  ~  iniii_dfag-0.01;} 


i^oiax_cifc  >  iiiin_cifc<del) 

{iittx_cifG  ~  inax_ciic+0.01; 
iniii_cifc  >  iniii_dfc-0.01;} 

//find  the  difleiential  between  the  min  and  max  values  for  each  parameter 
deita_diord  ■  max_chord  •  min_choid; 


deita_thkfc  *  max_thkfc  •  min_thick; 


ddta_dr8g  *  max_drag«  min_draK 
delta_ciic  >  max_ciic>  min^circ; 


The  plots  are  then  drawn  using  polytines  of  the  appropriate  color  and  the  y  axis 
value  labels  are  written.  The  imtividual  points  are  (favwn  as  drcles.  This  is  done  for  the 
chord,  thickness,  drag  coeflSdent,  and  circulation. 

/^dot  the  fixir  parameters 
//start  with  the  non-diniensiooaliaed  diofd 
//sdect  the  appropriate  colored  pea 

SdectPen(BladePaintIX:,hPlotFen(OHO)); 


//Mtiust  the  origin  of  the  plot 


origiajinpiLX  -  orifiii[M].x:4-20; 
oii|ia_fni^y  -  o(igiii^.y+40; 

/Aoop  dtta«^  all  the  nMlii,  More  the  locaiioa  of  each  poiot  in  an 
//hnay  of  poial  Mrachma,  and  draw  an  ellipae  at  eadi  poiat 


poiat(i].x  -  (intX(ongia _graph.x+270*XRnNIj]IM])* 
width/640.0); 

pointUl^  -  (intX(orifitt_f(aph.y+((aiax  chMd>XCHDy][M]y 
delta_diord)*40)«het^4«0.0); 

ElUpae91aitfaiiitDC.poiiit(j].x*3.pouitUIy*3, 

potnt(iI.x+3.poiii^I.y4-3); 


) 

//draw  a  polyline  connecting  all  of  the  points 

Polyline(Bladd'aintDC,point,MRPIN[M]); 
//label  the  y-axis 


fi»f0^;i<3-j++){ 


length  «  sprinlf(biifler,  "%4.3f  .niin_chord+<i*delta_chord/2.0)); 

TexlOiit(Bladei^ntDC,(intX(origin.^gra|di.x*3  t)*width/640.0), 

(intX(origin _graph.y+37'j*20)*beighl/480.0), 
buffo,  length); 


//pfo  the  non-dunenskmalized  thkbKss 

SeleGtIfoi(Bladd'aintDC.hPlotPen(l|(OI); 
origin ,jrBph.y  -  origin .^graph.y4xielta_y; 
fo(rO'J<MRPlNIM]j++){ 

pointUl-x  -  (intX(origin _graph.x+270‘*XRPlN(j][M])* 
width/640.0); 

point(|].y  ■  (intX(origin .jraph.yH(niax_thidc>XTHKyi{M])/ 
delta_thick)*40)*heig^480.0); 

Hlipee(BiadePaintDC,pointy|.x-3,p(»nty).y-3, 

pointy].x+3,pointy].yt-3); 


> 


P0lyline(BladePaintDC,pointA4RPINIM)); 

fo(j-0'j<3a++){ 


r.  *%4  jr,Biia_tliick-Kj«delta_Utid(/2.0)); 


Text(MBIadeMallX^(intX(origu.jnvh.x-3l)«wkbh^.O). 

(iiitX(origiii_fn9lLy+37-j«20)*lid(ht/480.0X 
buffer,  kafth): 

> 

//plot  the  viaooui  dng  corfTicinU 

SefeGtFeD(BladtfaiiMlx:jiI1otf>en(2HOD; 

origiii.jnf>h.y  -  orifuij|nph.y+deIta_y; 


fcf(rO'i<MRnN(M]j4-i-X 


poiiit(i].x  =  (intXCorigiii _,graph.x-«-270*XRPINU]|M])* 
width/640.0); 

pointQI.y  -  (iittX(origin.jraph.y4((max_dtag-XCD[jI[M])/ 
delta_diag)*40)*heighl/4b0.0); 

EUipse(BladePaiatDC.poiiit[j].x-3,poiiity].y-3. 

point(jI.x-»-3.point[j].y+3); 

> 

PolyUiie(BladePaintDC.pouit>IRPIN(M]); 


for()-0-j<3 ;)++)( 


fength  -  sprintfCbuCfer,  ”%4.3r.iiun_dfag+Q*ddta_(liag/2.0)); 

TextOut(BladePaiiitDC,(intX(origin _gra)>h.x-31)*width/640.0), 

(mtX(origin_,graph.y+37-j*20)*heigbt/480.0), 
buffisr,  length); 

} 

Ihgkei  the  iioii<dimensioiial  dfcubtion  -<'*■ 

SdectIkii(BladeI*aiidDC.hPlotPen(3][0)); 
origia_pa|fe.y- origin jgraph.y+delta_y; 
fci(j-Oj<MRPlNIMJj++){ 


point{i].x  -  (intX(origin.^graplLx+270*XRPINU][M])* 
width/640.0); 

PoiirtOJy  “  (iMX(origin_graph.y+((iiiax_cire-XGljJIM])/ 
ddta_ciic)*40)*hdght/4g0.0); 


EIU|Me(Bladd>aintIX;|)ointUlx-3.|X)iiitU].y-3. 

poiirt(j].x-*-3.point[i].y^3); 


PoiyliiiB(BlaiitfMi<PCjoiBt>4RPlN(Ml); 

kafUi  ipriallQHAr.  ”S4.3r.iiiia_cucKi*delta_ciic/2.0)); 


TeitOirt(BladeI>«iiMlx;XiiitX(oticui_S^  l)««idth/640.0). 

(iatX(oricia .fnplLy4-37^20)*heiglit/4S0.0). 
buffer,  leogth); 


The  process  is  repeated  for  the  ring  data  in  the  case  of  a  single  component  ringed 
fMopeller.  In  this  case  the  values  are  plotted  against  a  non-dimensionalized  angle. 

//if  Gompoaeiit  #1  is  a  rilled  ptopeUer,  plot  the  ring  panunetfsfs  in 
//the  loaaioa  where  oompooent  #2  is  normally  plotted 

if((ringed_prapeller(0]— (charX89))y(ringed jMopelleit  1  ]>»KcharX89))) 

{ 

//intriaiiTw  (he  maximum  and  minimum  values  for  each  parameter  to  be  plotted 
maxjdioRtm.O;  min_choRH1.0; 
max_thick*0.0;  min_thidc~1.0; 
max_dtag«  0,0;  min_diag>  1.0; 
max_circ»  0.0;  inin_ciic>  1.0; 

//for  each  angle,  compare  the  parameter  value  to  the  previous  maximum  and 
//value,  and  store  the  max/min 

forO-<)-J<MBlN[01j++){ 

maxjchotd  ~  max(max_diofd3CHDINy]{0]); 
minjdiord  ~  min(minjdwid.BCHDINyH01); 

maxjhkk  -  max(m8x_thkh3THKlN(jl(0]); 
minjthicfc  *  min(min_thidrJBTHiCIN0HO|); 

maxjdrag  "  max(max_dtag3CDINQ|(0]); 
min_drag  >  min(minjdtag3CDINU](0D; 

maxjcitc  -  max(max_circ3CIRIN(i](0]); 
mitt_cire  >  min(min_citc.BClRlNU](0]); 


} 

//if  *||«(  iMvinim  MMi  miliiimiin  value*  Me  doge  together,  ipwad  them  apart 

ifl[iux_dioid  •  inin_ciionKikl) 

{imx_clioid  <■  Bmx_dioidfO.  1; 
iiiia_dMnl  ~  miB_dKMd-0. 1;} 

il(iiiax_lliiGk  -  iiiiii_thick<dd) 

{naxjhidc  >  nax_tliick-K).  1; 
iiiiB_thick  *>  iiiiii_tlikk-0. 1;} 

ifl(iiiix_dng  -  iiiiB_(bag<dd) 

{naxjdi^  -  mn.dn^.Ol; 
iiiiB_dfag  » inia_diig-0.01:} 

ifi[aitx_ciic  -  min_ctfc<del) 

{iiiax_ciic  « iiiax_cifcH).01; 
nun_dfc  « iiiin_ctfo-0.01;} 

//find  the  ditfenential  between  the  min  and  max  values  for  eadi  parameter 

delta_chord  ~  max_choid  -  min_chonl; 

delta_thick  »  max_thidc  •  min_thick; 

delta_drag  «  max_drag*  min_drag; 

delta.circ  max_ctrc-  min_dfc; 

//plot  the  four  parameters 

//start  with  the  non-dimensionalized  chord 

//select  the  appropriate  colored  pen 

SdectPen(BladePaintDC,hPlotPen[0](0]); 

//adjust  the  origin  the  plot 

origin .^graph.x  »  oiiginP|d].x+20; 
origin _gra|di.y  origin(I^.y+40; 

lbr<H>u<MBIN[0];H^){ 

pointIj].x  >■  (intX(origin _gnq)h.x-i-270*BANGINy]|0])* 
widtii/640.0); 

pointyi.y  -  (imX(origin _graph.]rK(nu»_chord-BCHDINy](0)y 
delta_chor^*40)*height/480.0); 

Eliipee(BladePaintDC.pointy].x-3,pointy].y-3. 

pointyi.x+3,pointyi.y+3); 

} 
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» 
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PolyiiaeCBIaddPaiiitlX^poiitt^ 

fc«<Hni<3j++M 

kafth  -  jr.iBin_cfaonl4<j*deitt_ciio(d/2.^ 

TodOat9la<tfiialDC.(iatX(oriciB_gnph.x*3  i)*widtb/640.0), 

(iBtX(arifi]i_cn|ilL3r+37<j*20)*heiglil/4M.O), 
buffo,  length); 


If’gktt  the  ntUKhmeasiomliaed  thicknew 

Selectikii(BladdbfotDC,hPlolIki^ 
origio _gn4>h.y  -  origiii .jra|rii.y+deita_y; 
fo(j-0J<MBIN{0)j4^){ 

poiiit(i].x  -  (intXCorigiii jgnph.x-t-270*BANGINy]|0))* 
width/640.0); 

poiiit(j].y  *  (iiUXforigin jgraph.y+((inax_thidc-BTHKIN|j](0])/ 
delta_thick)*40)«heigliI/4S0.0); 

EUipee(BladePaiiitDC,pointyi.x-3,point[}|.y>3, 

pouity].x+3,pointyi.y+3); 


Polyliiie(BladePaiiitDC,poiiit,MBIN(0|); 

fi)r(i=Oij<3’j++){ 

leagth  -  sprintfCbuffer,  '*%4.3r,ininJhidt-Kj*deltajthidc/2.0)); 

TextOut(BladePaintDC,(iiitX(origiii _graph.x-31)*widUi/640.0), 

(intXCorigin _gr^.y+37-j*20)*hdght/480.0), 
bu£fo,  leagth); 


/^plot  the  viaoous  drug  ooeffideot 

Selec«Ikii(Bladd>aiiilDC.hPlotIkn(2](^^^^ 
origin jgn4)h.y  *  origin _graph.y+delta_y; 
fo(rO-j<MBINIO]J^){ 

pointy].x  «  (intX(wigin _gr^x-i-270*BANGlNy][0])* 
wkhh/640.0); 
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poiat(i).y  « (iatX(ori(iiijgraph.y+((iiax_dng- 
BCDINU]{0]ydelia_dng)*40)«iieiglit/4«0.0); 

EIU|Ne(BladePuiitlX:.poiiity].x0.point[j).y-3. 

poti^).x+3.poii^].y^3); 

} 

IH)lyliiie(BladeihuiitDC.poiA^ 


fbr(H)j<3jH-){ 


length  -  sprintg[bu£fer.  *%4.3r.nitn_drag+(j*ddta_dng/2.0)); 

TextOut(BladePaintDC.(intK(origin _giaph.x-31)*width/640.0). 

(intK(origia jgraph.y+37-j*20)*hei^»/480.C,\ 
buffer,  length); 


> 

//plot  the  non-dimenskmal  diculation 

SelectI^(BladePaintDC.hPlotPen[3][0]); 
origin jgraph.y  x'  origin j^h.y+delta_y; 
for(H'J‘'=*®IN[01j++){ 


pointyj.x  “  (intK(origin _jniph.x+270*BANGINy)(0J)* 
width/640.0); 

pointyj.y  »  (intK(origio _graph.y+((nux  circ-BCIRINyj(OJ)/ 
delta.circ)*40)*height7480.0); 

Ellipee(BladePaintDC,pointy].x*3,pointy].y*3, 

pointy].x+3,pointyi.y+3); 


> 

PDlyline(BladePaintDC,point>IBIN(0]); 

for(i=0j<3J++){ 


length  =  sprintl(bufifer.  •%4.3r,niin_ciro+<j*(iclta_circ/2.0)); 

TextOut(BladePaintDC,(intX(origin .^giaph.x-31)*width/640.0), 

(intX(origin _graph.y+37-j*20)*heighl/480.0), 
buffo,  length); 


» 
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After  the  plots  are  complete,  the  ori^nal  pen,  font,  and  brush  are  selected  back 

into  the  device  context  and  the  pens,  fonts,  and  brush  created  for  this  function  are  deleted. 

The  paint  process  is  then  terminated  using  the  EndPaint  function. 

//sdect  the  origiiia]  brash,  pen  and  font  back  into  the  device 
//  context  and  delete  the  fonts,  pens,  and  brash  created  for  this  function 

SelectPen(Bladd*aintDC,h(HdPen); 

SelectFont(BtadePaintDC,hOldFont); 

Select0bject(BladePaintDC,h01dBri^); 

DeleteFont(hFont): 

DeleteFont^malffont); 

DdeteFont(hVertFont); 

DeleteObject(hBrush); 

DeleteObjectfhStandaidPen); 

for(i-0;i<2;i++; 

for(j=0-j<4j-H-) 

DeleteObject(hPlotPen[j]|i]); 


//close  out  the  paint  conunand 
EndPaintfhWnd,  &ps); 

} 


C.4.2  The  paintwake  function. 

The  paintwake  function  is  used  to  draw  polar  plots  of  the  axial,  radial,  and 
tangential  wake  profiles  for  the  project  component(s)  to  the  Wake  Viewer  window  on  the 
monitor.  It  is  not  used  to  produce  printed  output.  The  function  also  writes  the 
CURRPBD.VEL  file  that  is  used  as  input  to  the  PBD  FORTRAN  executable.  The 
paintwake  function  receives  the  handle  to  the  Wake  Viewer  window  as  an  argument. 


vdd  paintwake(HWND  hWnd) 

{ 

*  declare  variables  that  are  ddined  in  the  pll.c  file  and  that  * 

*  will  be  used  in  this  function  * 

*««««••*••«««•««**«*••«**«*«•«*«*«««***««****««********•*************/ 


*.  * 


4 


i 


I 


4 


4 


extern  int  LDEV,  pw>(ect_fl«g,  coinponent_flng. 

NRWINIniax_oomp].  NHARMA(inax_comp]. 
NHARMR(niax_oonip|,  NHARMT[max_comp]; 

extern  float  XRWIN(niax_wake_md][maxjcoffip]. 

XVA(nax_wake_mdI(max_wake_har](2]iniax_oonip]. 
XVR(niax_wd»_rad](max_wake_liar](2]|max_compI, 
XVTIinax  wake  ladjimax  wake  harj[2i[max  comp], 
XFINAL;” 

extern  diar  WKIN(niax_oonip]{21]; 


» 
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Variable  dedaiations  * 

,  *********************************************************************/ 


HDC  WakePaintDC: 

//handle  of  the  device  context 

PAINTSTRUCTps; 

//paint  structure 

4 

HPEN  hQ)lorPen(niax_nid|, 

//pens  for  drawing  plots 

i 

hThidcPen, 

//pen  for  boxing  plots 

hOldPen; 

//handle  of  original  pen 

HFONT  hFont, 

//font  for  text  output 

1 

hOldFont; 

//original  font 

i 

HBRUSH  hBnish. 

//brushes  for  drawing  on  the 

hOldBnish; 

//screen 

FILE  *001; 

//pointer  to  a  file  structure 

4 

POINT  origin .jraph[31= 

//points  defined  to  locate  the 

•  ■' 

{{110.130}. 

//origins  of  the  polar  plots 

{530.130}. 

{320.330}}. 

//and  the  key  on  the  screen 

origin_key={20.235}. 

points[31]; 

■y/point  structures  used  to  plot 

4 

//the  velocity  profiles  in  the 
//form  of  polylines 

W 

int  length. 

//length  of  character  strings 

i.j.k,in.n. 

//counters  for  loops 

ellipse  size=90. 

//size  of  the  polar  plots 

4 

J; 

positkMisfitr 

//number  of  axial 

w 

//  specifying  velocities  in 
//  .vel  file 

4 

float  inax[3]>>{>2.0. 

//maximum  and  minimum  values 

» 

-2.0. 

//of  the  axial,  radial,  and 

-2.0}, 

//tangential  velocities,  used 

< 
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2.0, 

2.0, 

2.0). 


//to  Kale  the  potar  plots 


width,  height, 
delta. 

//display  size  scaled  to  640/480 
/Aised  to  scale  the  polar  plots 

tlieta(30]. 

//discrete  angles  fiir 
//calculating  sad  plotting 
//velocities 

vdocity(3] 

[maxjoomp] 

[max  wake  md) 

[30],“ 

//44>  amy  fitr  storing  the 
//calculated  wake  velocities 

ax_pos; 

//axial  position  for  writing  pbd 
//  velocity  file 

buffisr|120]; 

//a  buffer  used  for  writing 
//text  output 

As  in  the  paintbld  function,  the  window  is  prepared  for  painting  with  the 
BeginPaint  function.  If  a  project  is  not  open  the  bulk  of  the  code  is  skipped  and  the 
painting  process  is  terminated. 


//citate  the  device  context 

WakePaintDC  BegmPaintfhWnd,  ftps); 


//only  plot  the  profiles  if  a  project  is  currently  open 


Twenty  different  colored  pens  are  created  since  as  many  as  twenty  different  radii 
may  be  used  for  qiecifying  the  wake  profile.  A  tluck  black  pen  is  created  for  drawing 
fiame  rectangles  around  the  plots. 

//create  solid  peas 

hThkkPen  -  Creald>at(PS_S(XJD,2  JtGBCO.O.O)); 

hColoiPen(0]»Cieatei'en(PS  S(XJD.  1.  RGB(25S.0.0));  //red 
hailofi>ea[l]-CreatePeii(PS_S(XJD.  1.  ROB(255,255,0))yyyellow 
hColofPen|2]*Crettd*ea(PS  S(XJD,  1,  ROB(0.2SS,0));  //green 
hColofFea[3]-Oeatd>eii(PS  SCXJD,  1.  RQB(0.2S5.255))y/Ught  blue 
hColoiPenI4]-Creatd>eii(PS  SCXJD,  l,R(aB0),O,2SS));  //bright  blue 
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liCoiori>en(5]-Createi>eii(PS  S(XJD,  1.  RGB(235.0.25S));//iiiageiita 
hColoiPea[6]K:ital(Peii(PS_SOIJD.  l.RGB(0,64.128)); //dark  blue 


//aeale  dotted  pens 


liQ)k>ri>Cu(7H:Ratd>tii(PS  DOT.  1.  RGB(2SS.0,0));  //red 
liColoiPen(8]-Citatd>eii(PS  DOT.  1.  RGB(2SS.25S.O));  /fydlaw 
li(>)lori>en(9K:icatd>eii(PS  DOT.  i.  RGB(0.2SS.0));  //green 
liColori>bn(10]-Cieald>nnO*S_DOT.  1.  R(S(0.255.255));  //light  blue 
hColori>en(ll]-CieatePeii(PS  DOT.  1.  RGB(0.0.2SS)).  /^rightbllle 
hQ>loiPen(12]-CieatePen(PS  DOT.  1.  RGB(255.0.2SS));  //magenta 
liColori>en(13]-CieatePen(PS  DOT.  1.  RCS(0.64.128));  //dark  blue 


//create  dashed  pens 


hColori*en(  14]*CreatePen(PS. 
hColorPen[lS]«CreatePen(PS. 
hColori*eni  16i*CreatePen(PS. 
hColorRenI  17]aCreattfen(PS. 
hColorPen[18]»CreatePen(PS. 
hColori^n[191>=CreatePen(PS 


DASH.  l.RGB(2SS.0.0));  //red 
DASH,  l.RGB(2S5.2S5,0))-y/VeIlow 
DASH.  l.RGB(0.255.0));  //green 
DASH.  1.  RGB(0.255,2S5));//light  blue 
DASH.  1.  RGB(0.0.255));  //bright  blue 
DASH.  l.RGB(255.0.255))y/inagenta 


The  size  of  the  display  area  is  calculated. 


//determine  the  width  of  the  di^lay  in  pixels  and  the  Iwight  of  the  display 
//  in  raster  lines  and  cast  them  as  floats 

width  =  (float)GctDeviceCaps  (WakePaintDC,  HORZRES); 
height  °°  (float)GetDeviceCaps  (WakePaintDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3.  ensure  that  the  gr^hical 
//  output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)><4.0/3.0)) 

width  =  height*(4.0/3.0); 
else 

height  >°width*(3.0/4.0); 


The  device  de&ult  font  and  a  hollow  brush  are  selected  into  the  device  context. 

//create  font  for  drawing  alphanumeric  output 

hFont  *  GetStodcFont(DEVICE_DEFAULT_FONT); 

//select  a  thick  pen  for  drawing  the  polar  plot  outer  ring  and  save  a  handle 
//  to  the  old  pen 

MRdPtn  SelectPen(WakePaintDC.hThickPen); 

//create  and  select  a  hollow  brush  so  that  ellipses  and  rectangles  will 
//  not  overwrite  pre-existing  graphical  output,  also  save  a  handle  to  the 
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//ofjgiiialbrak 


li&«di  -  GetStockOijectCIKXljOW  BRUSH); 
hOMBnish  -  SdeclOvectCWakePiu^liBn^^ 

//wiect  the  wnaal  sized  Ibirt  and  save  a  liaiMBe  to  the  old  foitt 

hOldFoat  -  SdeclFoat(Wak(PaiiitDC.hFoiit): 

Thirty  evenly  graced  tuigles  are  used  for  calculating  and  plotting  the  vdodty 
profiles. 

//calculate  discrete  angles  for  ii4iidi  the  velodties  will  be  calculated 
for(iH);i<30;i++)  theta(i]^*pi/15.0; 

The  screen  and  the  individual  plots  are  labeled.  The  bounding  rectangles  are  then 

drawn.  A  circle  indicating  the  nucdmum  velocity  on  the  plot  is  also  drawn. 

//align  the  text  such  that  it  is  centered  and  draw  the  main  beading 

SetTextAlign(Wakd>aintDC.TA_CENTER); 

length  *  sprintf(buffer,  "Wake  Profile  for*); 

TextOiit(WakePaintDC,(intX320*width/640.0), 

(intK30*beight/4S0.0).  buffer,  length); 

length  =  sprintf(buffer,  "Component  #3id",component_flag+l); 

TextOut(WakePaintDC.(intK320*width/640.0). 

(imK4S*height/4S0.0).  buffer,  length); 

//label  the  three  polar  plots 

length  sprintf(bufkr,  "Axial"); 

TextOut(WakePaintDC.(intX(origin _giaifo(axial}.x)*width/640.0). 
(intX(otigin_graph[axial].y-120)*height/480.0).  buffer,  length); 

length  >  sprintfi>iffer,  "Radial"); 

TexlOut(WakePaintDC,(iiitX(origin ^giaph{radial].x)*width/640.0), 
(iiitX(origin.gniphlradial].y-i20)'*heigiit/480.0),  buffer,  length); 

length  -  sprintf(bufikr,  Tangentiai"); 

TextOut(WakeiPaintDC.(intX(origin .^graph[tangential].x)*width/640.0), 
(intX(origin.^graph[tangeii^].y-120)*height/480.0).  buffer,  length); 


$ 
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SclTedMgn(Wakd>«iitIKJA_LEF^ 


//di«w  the  itctuglei  that  eodoae  the  p(to  pkMs  and  the  cucks  that 
//indicate  the  maximum  vdodtics 

ibi(i-wdalj<«tangential-j++)  { 

Rectangle(WdcePaintDC,(intX(origin _graph(i].x-100)*width/640.0). 
(intX(origin jBn|diU].y-100)*width/640.0). 

(intX(origin _gn^[i].x+100)*width/640.0). 
(iatX(an8>n_xn|ihyi.y+100)*width/640.0)); 

Ellipse(WakePaintDC,(intX(origin jgraph(j].x-ellipse_size)*width/640.0), 
(intX(origin .^gra{di[i].y-ellipse_size)*width/640.0X 
(intX(origin_,graph(ji.x+ellipae_si2e)*width/640.0). 

(intX(origin _,graphy].y+eUi|iee_size)*width/640.0)); 


} 


The  velocity  components  are  calculated  at  each  radius  and  angle  using  the  velocity 
harmonics,  which  are  stored  in  memory  as  global  variables. 

//calculate  the  axial,  radial,  and  tangential  velocities  for  each  angle 
//first,  loop  through  the  radii 

for(k=<l;k<NRWIN(component_flagl;k++){ 

//include  the  0th  order  terms 

for(ni=0;m<30;m++){ 

velocity[0](oomponent_flag)[k][m]=XVA(k][0](0][component_flagI; 
velocityili(coaiponent_flagipcj[mj=  XVR[k](0]|0][component_ilag]; 
veiocily[2](coniponent_llagi[ki[mi=XVnk)[0H0]Icomponent_flagi; 

//add  the  contributions  (tfthe  higher  order  terms  for  the  axial,  radial. 

//and  tangential  velocities 

fi>r(n»l;tt<NHARMA(oomponent_flag];n++)  { 

velocity(0][componmit_llag][k][m]=^locity(0](component_flag][k]lm]+ 

}^A[k]|n][0]|oomponem_flag]*c^(n)*theta|m)X 

velocity(0](oompooent_llag][k]|m]=velocity(0][component_flagl(k][m]+ 

?^Apr][n](  1  j(oom{x>nent_flag]*si^(n)*th^|m)); 


> 

foi(n~l;n<NHARMR(component_fhig];n++){ 


velodQf|ll|ooinponcnt_flagl[kl[ml-vek>city(lllcoinpooent_flag|[kl[inH- 
XVRIk]IaHOUooiDfioiieiit_fla()*o^(a)*th^iii]); 
velodQil]|ooiii|Miient_fbg]Pc]{iiipvelocity(  1  Hooinponait_flaglPtl[ml-» 
XVI^k)(BHlHooiiipoiieiit_flag]*riii((B)*tIirta|m]); 

} 

ibt(BFl;B<NHARMncoBipoiient_flBgl;B++){ 


velocilyf2]IcoiBpoiieat_flBgHkl[Bil»vdoci^l2Hcomponent_flagl[kHBil+ 

XVnk](B](0](ooaipoaeiB_flag]*oo^(B)*tlKtBlm]); 

vdociQi2](ooaipoBeat_flagl(k)(Bi^veloctQr(2]IcoinpoaeBt_flag]Pc)|Bi]-«- 

XVT|k](B](l](ooaipoiieBt_fUg]*sLD((B)*th^m]); 


> 


The  maximum  and  minimum  values  for  the  axial,  radial,  and  tangential  velocities 

are  then  calculated  using  three  nested  for  loops. 

//loop  through  the  axial,  tadial,  and  tangential  velocities  for  each  radii 
//and  angle  to  find  the  manimiini  and  minimum  values 

for(lr*0;k<NRWIN[oomponent  flag];k++) 

{ 

for(n»  axial;  n<»  tangential;  n-H-) 

{ 

for(m=O;m<30;ni++) 

( 

niax(n]  >  niax(niax[n|,velocity(n][component_flag](k]|m]); 
min(n]  niin(niin(n],velocity(n](component_flag](k]Im]); 

} 

} 

} 

A  vdocity  profile  file  formatted  for  use  by  PBD  is  then  printed. 

//open  a  file  and  write  the  wake  velocities  at  a  series  rf  axial  positions 
// firom  upstream  (x->3.0)  of  the  propeller  to  at  least  the  XFINAL  position 
// qwcified  in  the  FBD  settings 

//open  the  file,  print  a  warning  if  unable  to  open  the  file 
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if  ((out  -  fiipearcttn|ibd.vcl*.  V*))  —  NULL)  ( 

MemceBeep(MBJC(»IEXClJUt4ATIC»0^ 

MfmtcB>»f(hWad.  "UuUe  to  opea  fik  'cunpbd.vd‘.*, 

"WARNINCr.  MBJC(»4STOP  |  MB_(XC  |  MB_TASICM(»AL); 

) 

dae{ 

//calculate  the  wmiber  of  axial  poritiooi  to  output  data  for 
J  -  (iittX(XFINAL/1.3>H3); 

//print  the  header  line 

l)miitfl[out,*'ZONE  T-Tnflow",  I*  %d,  J=  %d.  F=POINT\n* J.NRWINIO)); 

//loop  through  radii  at  which  the  wake  is  specified 

for  (i-O;i<NRWINl0I;i++) 

//loop  through  each  axial  position 

for(ax_pos*^3.0;  axjx«<=XFINAL;  axj)os+=1.5) 

//print  the  axial  position,  radius,  axial  velocity,  radial  velocity,  and 
//  tangential  position 

fprintKout,”  %f  %f  %f  %f  \n“.  axjros,  XRWENliHO), 
velocity(0)(01[il(01,  velocity(ll(0HiH01,  velocity[2)[011ill01); 

//dose  the  file 

folose(out); 

} 

The  difference  between  the  maxiinuni  and  minimum  values  to  be  plotted  for  each 
of  the  three  plots  is  calculated  and  adjusted.  The  minimum  and  maximum  values  are 
labded  on  the  plots. 

//loop  through  die  axial,  radud.  and  tangential  plots,  determine 
// the  maxiinuin  and  minimum  values  that  will  be  used  on  the  plots, 

// draw  the  values  on  the  plots,  then  draw  the  polylines  on  the  plots 

fiN(n>  axial;  n<«  tangential;  n+-i-){ 

//calculate  the  differential  between  the  maximum  and  minimum  values 
ddta  *  max(n]-min{n]; 
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//if  the  differattial  is  dkMc  to  aro,  act  the  diffeiciitial  to  0.1 

il(delto<del)  ninfn]  -  iiiiii(n]>0.1; 

//recalcalato  the  diffeiealial  sod  widen  the  nuiSB  so  that  the  BMx 
// sad  aiia  velocities  do  not  plot  exactly  on  the  Units  of  the  srephs 

delta  >■  aiax(a]Hiiia(a]; 

inaxln]  -  maxla]  +  0.1*ddta; 

iiiin(a)  -  iiiiii[n]  -  0.i*delta; 

//dnw  the  min  value  on  the  plot 

length  *  sprintf(bu£fer.*%4.3r,niin[n]); 

TexlOut(WakdPaintDC,(intK(origin jgraph(n].x+40)*wi(lth/640.0), 
(intX(origin jgisph[n].y+80)*height/480.0),  bufTer,  length); 

//diaw  the  max  value  on  the  plot 

length  -  sprintg>ififer.*%4.3r,niax{n|); 

TextOut(WakePaintDC,(intK(origin .^giaph(n].x*9S)*width/640.0), 
(intX(origin jgfaph(n].y-95)*height/480.0).  buffer,  length); 


»  • 


The  vdodty  profile  for  each  plot  is  drawn  as  a  series  of  polylines  corresponding  to 

the  different  radii.  The  angle  corre^nds  to  the  angular  position  relative  to  the  hub  and 

the  magnitude  is  the  magnitude  of  the  velocity  component. 

//loop  through  each  the  ladu 

fi)r(k^dr<NRWIN{ooniponent  flag];k-H-) 

{ 

//select  the  pen  contsponding  to  the  iqipropriale  radius 

SelectPen(WakePaintDC,hColofPen(k|); 

//cakolale  the  X  and  y  value  in  screen  coordinates  for  each  angle 
/^nd  vetodQr  and  store  in  the  points  array 

fi>f(m-0;nt<30;n»++) 

{ 

points(m].x- (iittX(origin .^gra|di(n|.x-r' 

(((veh)cityIn][oomponent_fiagjpc][m]-niin[n])*eUipse_size/ 

(niax(n]Hiiin(n]))*co6(Q)ih.0>ftb^m])))*vidth/640.0); 


IM 
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poi«s{a].y-  (iMX(orifiB.jfa|ih(B].y- 
(((vtioc^)1a)|ooa|MaeM_flag]P(|(aH^  size/ 

(inax|aHaiii(B]))*riiX(^0)+tlieta(mD))*iiei^ 

) 

//doM  the  polyliBe  ^  aettiag  the  flinl  poiBt  equal  to  iIm  fini 


|KiiBta(30].x>qwiatsf0].x; 

poiati(30].y-poiiits(0|.y; 

//diaw  the  polyliBe 


P0i]iiae(Wdcci’aiiitDC,poiiita.3 1); 


> 


} 


» 


» 


^  A  key  is  drawn  to  indicate  the  correlation  between  the  pen  colors  and  styles  and 

the  radii. 

//draw  the  key 
//first,  draw  the  heading 

I  9 

length  =  sprintfCbufifer.  ”Radius*); 

TextOut(WakePaintI)C.(intXorigin_key.x*width/640.0). 

(intX(origin_key.y+l5)*height/4«0.0),  buffer,  len^); 

»  TextOiit(WakePaintDC,(intX(origin_key.x+70)*width/640.0), 

(intX(origin_key.y+lS)'*hei^t/480.0),  buffer,  length); 

//write  each  value  of  radius 


•  fOT(km;k<niin(10,NRWIN[component_flag));k-H-)  • 

{ 

length  -  sprintffbuffer,  •%3.2r,XRWIN(kl(coniponent_flagl); 

TextOut(WakePaintDC,(intXorigin_key.x*width/640.0), 

(intX(origin_key.y+454k*15)*height/480.0),  buffer,  length);  ^ 

//sdect  the  iqipropriale  pen  and  draw  a  rectangle  iiMticnting  the  pen 
//style  and  odor 

SelectPen(WakePaintDC,hColoff>en(k]); 

'  Rectangle(WakePaintDC,(intX(origin_key.x440)*width/640.0),  * 

fintX(origin_key.y+4«+k*15)*h«ght/480.0), 

(iMX(origin_kty.x-»-S0)*width/640.0), 
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(iiMX(o(igm_k9.y^S74k«15)*lieislit/480.0)); 


> 

there  an  ■Mcthaii  10  ladu,  drew  another  ooluina  the  suae  wiqr 

il(10<NRWlN[ooiBpaaeat  flag]) 

{ 

length  -  sprintf^bulfDr.  Ttadius”); 

TextO«(WdKPaindX;(ireK(origia_k9.x+70)^^ 
(iatX(origui_k9.y4'lS)^height/480.0X  buifer.  kogth); 


fiw(kplO-,k<NRWINIooiiipoiieiit  flag];k++) 

{ 

length  -  sprintflbuffer.  *%3.2r^WINPcl|ooinponent_flag]); 

TextOut(WakcPaintDC.(intX(origin_key.x-»-70)*width/640.0). 
(intX(origin_k^.y+45^-10)*lS)*beigln/480.0).  buffer,  length); 

SelectFen(WaktfaintDC.hG>l(KFtn(k]); 

Rectangle(WakdkintDC,(iirtX(origin_key.x+l  10)*width/640.0), 
(intX(origin_l«y.y+48+(k-10)*15)*height/480.0), 

(intX(origin  fc^.x+120)*wkitli/640.0), 
(intX(originIlMy.y+57+(k-10)*15)*height/480.0)); 

} 

> 


After  the  plots  are  complete,  the  original  p«i,  font,  and  brush  are  selected  back 
into  the  device  context  and  the  pens,  fonts,  and  bru^  created  for  this  function  are  deleted. 
The  paint  process  is  then  temunated. 


//sdect  the  standard  pui  and  brush  styles 

SelectFoitt(Wakti*aiidDC,liOldFont); 

SdectPen(WakdkintDC,hOldPen); 

SdeGlObiect(WalctfainfDC,hOldBrush); 

//delete  objects  that  were  created  but  are  not  correntiy  sdected  into  the 
//device  context 

fi>t(H)-,t<20*>H-)  DeleleObiect(hColorPen(il); 

DeieleObiect(hBnish); 

DdeteFoal(liFoiit); 

DekteOtgectOiThiclcPea); 
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//dOH  <Mt  dM  Piiat  oMHnad 

BiMaKhWiid.M); 

> 


C43  Tkc  pafaitplot  Auctioa. 

The  paimplot  fimction  uses  the  draw  fimction  to  draw  the  PLL  plots  on  the  Plot 
^^ewer  window.  The  pein^lot  function  does  |Mt>vide  printed  output.  Thepaintplot 
fimctkui  receives  the  handle  of  the  Plot  Viewer  window  as  an  argument.  It  passes  a 
soeen  location,  a  pointer  to  the  data  array  to  be  {dotted,  the  index  of  the  plot  name,  and 
the  handle  of  the  screen  device  context  to  the  draw  fimction.  Both  fimctions  are  shown 
bdow. 


void  paiii^iloifHWND  hWnd) 

{ 

*  declare  varkMes  that  are  defined  in  the  pll.cfik  and  that  * 

*  will  be  used  in  this  fhnctioa  * 

extern  int  praied_flag,  piotjiage,  drew jdot.flag; 

extern  float  CIKXa>INPtniniax_ooinpHniax_iad|, 

PlTCilAN<H£UNDISTURKD(aiax_coinpHniax_rad]. 

CHCTtDCALC[niax_ooinp|[niax_tad|. 

nTCHANGLQNl>UCEI>{iiiax_ooinpHniax_rad|. 

UAlNEFFECTIVE(aiaxjooaip][niax_rad), 

UTINInHx_ooaip][inax_iadl. 

UAINDUCED(aMx_ooinp]Iniax_nd], 

UTlNl>UCED(aiax_ooaipI(inax_fad}. 

THICXNESS(inax_ooinp]IaHK_ndl, 
CIRCULATHWINPUnaMK  oooipHaBax  lad], 
DRAGfanx.oompHaiax.faiq. 
ClRClLATIONCALC(niaxjoonip]|inax_iadI, 

IXX!AIX!L(a*ax_OQiiipUaiax_iadl, 

LOCALCTIin8Xjooai|4iniax_fad|, 

LOCALCQI>aax_GQa|4{aiax_fadj, 

CAVITATIONNUMBER|inaxjcoap][niax_ndl; 
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/*^*****0*m*0*m»»****m**»**—*»m»***»»*i 

*  VhiiUb  dtciuiMiov 


/ 


HDC  PloMad>C,  //handle  of  the  device  context 

PAINTSTRUCT  pa;  //paint  structuie 

The  paintpiot  function  prepares  the  Plot  Viewer  window  for  painting  using  the 
B^inPaint  fiinction.  Ifthere  is  no  open  project,  or  ifthedraw_plot_flag  has  not  been  set, 
the  bulk  of  the  code  is  slapped  and  the  paint  process  is  terminated. 

//oeale  the  device  context 

PloffaintDC  •  B^inPaint(hWnd,  Aps); 

//only  plot  the  paiameten  if  a  pniject  is  cunently  open  and  the  draw  flag  has  been  set 
if((p«pect_flag)AA<dfaw_plot_flag)){ 

The  paintpiot  function  evaluates  the  plot_page  flag.  This  variable  indicates  which 

of  the  fisur  PLL  plot  pages  is  to  be  drawn.  Each  of  the  four  cases  makes  four  calls  to  the 

draw  function.  The  draw  function  receives  an  index  that  determines  the  location  on  the 

screen  where  the  plot  is  to  be  drawn,  the  address  of  the  first  parameter  value  to  be  plotted, 

an  index  of  the  name  of  the  plot,  and  the  handle  of  the  device  context. 

//plot  tile  igiprapriate  page  of  output  by  pasting  an  index  for  the  position  of  each  graph,  the  address  of  the 
//  appropriate  parameter,  an  index  initiating  the  storage  location  the  plot  name,  and  a  handle  to  the 
//  device  context,  for  each  gn^di 

switdi(plot_page) 

( 

camO:  { 

dfa«^,ACIi(XtDlNPinTOIfO|,  OJ>lolPaintDC); 

dfaaKl.AITlXMANCmiNDISTURBED(0)(^^^  9,PlotPaintDC); 

drawOACliORDCALqoilO].  14>lotPaintDC); 

dnmf(34ITraiANGLEINDUCED(0)(0],  10J>lotPaintDQ. 

break; 

} 

caml:{ 


cbaw(0,AUAINEFFECnVEIO](01, 


6,PlotPaintDC); 


dnm(l^UI1N(0H01.  8J>lo(PaiiilDQ; 

dnwOAUAlNDUCEDiOllO].  llJ>lotPuntDC); 

dia«<3.*UTINDUCED(0H0).  12.PlolPaiiilDC); 

bceric; 

> 


caH2:{ 


dnnK0.AiniC3CNESS(0H0]. 

dniii(l.AaRCmATIC»QNFlJT10n^^^ 

di«w(2.*l>RAGI0][0]. 

dnnif(3.*ClRaJLA'nONCALCIOnO|. 


2J>io(PainlDC) 

3J>lotPaintDC) 

7J>lo(PaintDO 

4J>lolPaiBtDQ 


» 


• - 

OtrlB, 

} 


i 


case  3  :  { 


dfaw(O.ALOCALCL(OHOI. 

dnw(l.ALOCALCTIOHO]. 

dfaw(2.ALOCALCQ(0](0]. 

draw(3.ACAVrrATIONNUMBER(0](0], 


13J>lotPaintDC) 

U^lotPaintDQ 

lSJ>lotPaintDC) 

16JPlo(PaintDC) 


break; 

> 

> 


i  • 


After  the  plotting  is  complete,  the  paint  process  is  terminated, 
//dose  out  the  paint  oonunand 
EndPaint(hWnd,  ftps); 


The  draw  function  draws  cartesian  plots  of  the  PLL  graphical  output  on  four 
sqMurate  pages  for  each  component,  or  with  both  components  on  the  same  plots.  The 
plots  are  drawn  on  the  screen.  This  function  does  not  produce  printed  output. 


void  diaw(iiit  gnq>h  origin  index,  flod  *panuneter,  int  plot  name  index,  HDC  PlotPaintDQ 

{ 

*dedare  variables  that  are  defined  in  the  pil.c  file  and  that  * 

*  will  be  used  in  this  function  * 
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plotjMge,  plot_compoiient_fiag.  dnw_plot_flag.  LDEV; 
iiiiiiiber_ra^[niax_ooinp]; 

RADIUS[inax_coiiip]{inax_rad]; 


extern  int 
extern  int 

extern  float 


Variable  declarations 


/ 


HBRUSH  hBrush, 
hOMBnish; 

HPEN  liPlotPen[4][2]. 
hStandaidPen, 
hOklPen; 

HFONT  hFont, 

hMediumFont, 

hSmallFont, 

hOldFont; 

LOGFONT  IFont; 


POINT  origin _graphI41= 
{{0.10}. 
{320.110}, 
{0.220}. 
{320.320}}. 

left={40.15}. 

right={290.105}. 

point[niax_iad]; 


/Arushes  for  drawing  on  the 
//screen 

//pens  for  drawing  plots 


//fonts  for  drawing  alphanumerics 


//logical  font  structure  for 
//  creating  the  fonts 

//points  defined  to  locate  the 
//  origins  of  the  plots 


//points  that  define  the  extents 
//  of  the  plot  rectangles 

//point  structures  used  to  plot 
//  the  parameters  in  the 
//  form  of  polylines 


int 

decimaljrlaces. 

//indicator  of  decimal  places  to 
//  display  for  y>axis  labels 

length. 

//length  of  character  strings 

i=0.j. 

//counters 

shift=3; 

//number  of  pixels  to  shift 
//  y-axis  labels 

char 

biifier(120I; 

//character  string  used  for 
//  text  ou4>ut 

float 

inax_value=-10.0. 

//max  value  of  parameter 

min_value=10.0. 

//min  value  of  parameter 

delta. 

//(max-min)  for  parameter 

width,  height; 

//display  size  scaled  to  640/480 

char 


plot_nanie[  17][40]»{ 


//plot  labels 


4 


'CHORD  DISTRBUTKW  INPUT*. 

'CHCWD  DISTRIBUTION  CALCULATED'. 
THiaCNESS  DISTRIBUTION  INPUT*. 
'CIRCULATION  INPUT. 

'CIRCULATION  CALCULATED'. 

'AXIAL  INFLOW  VELOCITY.  N(»«INAL'. 
'AXIAL  INFLOW  VELOCITY.  EFFECTIVE'. 
'DRAG  COTFFICIENT. 

TANGENTIAL  INFLOW  VELOCrTY*. 
'UNDISTURBED  PITCH  ANCH£'. 
'INDUCED  PITCH  ANGLE'. 

'INDUCED  AXIAL  VELOCnV*. 

'INDUCTD  TANGENTIAL  VELOCITY*. 
**LOCAL  LIFT  COEFnCIENT. 

*LOCAL  THRUST  COEFnCIENT. 

'LOCAL  TORQUE  COEFFICIENT. 

IjOCAL  CAVITATION  NUMBER'}; 


The  size  of  the  display  area  is  calculated  to  ensure  device  independence.  Small, 
medium,  and  normal  size  fonts,  as  well  as  a  hollow  brush  and  eight  pens  are  created  for 
the  purpose  of  drawing  the  output. 

//determiiie  the  width  of  the  di^lay  in  pixels  and  the  height  of  the  display 
//  in  raster  tines  and  cast  them  as  floats 

width  =  (float)GetDeviceCaps  (PlotPaintDC,  HORZRES); 
height  =  (float)GetDeviceCaps  (PlotPaintDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
//  output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)>(4.0/3.0)) 

width  =  hcight*(4.0/3.0); 
else 

height  =  width*(3.0/4,0); 

//create  fonts  for  drawing  alphanumeric  output 

hFont  =  GetStockFont(DEVICE_DEFAULT_FONT); 
GetObject(hFont,sizeof(LOGFONT),&IFont); 

IFonLlfHeight  =  -8; 

hSmallFont  =  CteateFontIndirect(&lFont); 

(jetObject(hFont,sizeofl(LOGFONT),&IFont); 

IFontUHeight  =  -10; 


i 


i 


i ' 
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hMedhunFoot  -  Crealf oiitIiidirect(AlFoitf ); 


//cmte  lod  sdect  a  hollow  bniali  so  that  dlipses  and  lecoutgles  will 
//  not  overwrite  pre-existing  gr^ihical  output,  also  save  a  handle  to  the 
// original  brudi 

hBnish  -GetStockObject(H(XXOW_BRUSH): 
hOhlBrush  *  SelectOI)iect(PlotnuntDC,hBfush); 

//create  pais  fi>r  drawiog  plots 

hPlotFen(0][0]  -  CreatePenCPS  S(XJD.  1.  RGB(2S5.0.0)); 
hPlotPen(l](0]  -  CreatePen(PS_SajD.  1,  RGB(0.25S.0)); 
hPlotPai(2](0]  -  CreatePenCPS  SCX.ID.  1.  RGB(0.0.2SS)); 
hPlotPea(3]{0]  -  Creatd'eii(PS_SOLID.  1.  RGB(255.0.255)); 

hPlotPen[0][l] »  CreatePen(PS_DOT.  1.  RGB(2SS.0.0)); 
hPlotPenflKl]  =  CieatePen(PS_DOT.  1.  RGB(0.253.0)); 
hPlotPen[2](l] »  CreatePen(PS_DOT.  1.  RGB(0.0.2SS)); 
hPlotPen{3](lI  =  CreatePeri(PS_DOT.  1,  RGB(255.0.255)); 

hStandardPen  =  CreatePen(PS_SOLID,  1,  RGB(0.0,0)); 


//select  the  medium  font  for  kdieling  the  plot 

hOldFont  =  SelectFont(PlotPaintDC,liMediumFont); 

The  plot  is  labeled,  and  the  graph  is  made  by  drawing  a  series  of  rectangles.  The 
axis  is  then  labeled. 

//read  the  plot  name  into  the  buffer  and  write  the  plot  name 
wliile(plot_nameIplot_name_index]Ii]!=NllLL){ 

bufferli]  -  plot_nameIplot_nanie_index]Ii]; 
i++; 

} 

TextOut(PlotPaintDC,(intK(origin _graphlgr!^>h_origin_index].x+S0)*width/640.0), 

(intXCorigin .^graph(graph_origin_in(to].y)*heigbt/480.0),  buffer,  i); 


//select  the  standard  pen  and  draw  the  grqih  for  plotting  the  parameter  by 
//drawirig  a  series  of  rectangles 

hOldPen  -  SelectPen(PlotPaintDC,  hStandardPen); 

fi»rCi*0;i<5;i++)  ( 

Rectangle(PlotPaintDC, 


(iiitX(origiii jiaph(graphj)rigin_iiidexl.x+k<Lx+i*25)*width/640.0), 
(iiitX(origiii .jn^(gnph_origiii_iiKlexi.y4-ieft.y)*hetght/480.0). 
(intXCorigin .jnph{gnphjorigin_iiidexi.x+rig|iLx<i*25)*width/640.0), 
(iiitX(origiojKnipli(gniph_origiii_iiidexi.]Htig|iLy)*height/480.0)); 


RectangleCPIoCRuiilDC 

(iiitX(origiii jgnph[graph_origiii_in(lex].x-i-leltx)Svidth/640.0). 
(intXCwigin _gi4*Igraph_origiii_indexl.y+lefty+i*9)*heigH/480.0), 
(iiitX(origiii jKraph(graiph_origiii_inikxi.x-»-ri^Lx)*width/640.0), 
(iiitX(origiii ji4*[gn(rti_origiii_indexi.y+righLy-i*9)*haght/480.0)); 

} 


Rectangle(PlotPaiiilDC, 

(iiitX(origin_,graph(graph_origiii_iiidex].X'fldtx)*widUi/640.0). 
(intXCongin jgniph|graph_origiii_iiidex].y+]efl.y)*height/480.0), 
(iiitX(on8i».jgraph(graph_origiii_iiidexi.x-(-leftx-t-12S)*width/640.0), 
(iiitX(origiii_gniph(graph_origiii_indexi.y+right.y)*beight/480.0)); 

Rectangle(PlotPaiiitDC, 

(intXCorigin _graph[graph_origin_index].x-fleft.x)*width/640.0X 
(intXCorigin jgraph[graph_origin_indexl.y+left.y+45)*height/480.0). 
(intXCorigin _graph(graph_origin_indexl.x+right.x)*width/640.0), 
(intXCorigin _graph[gra|)h_origin_indcxi.y+rigliLy)*height/480.0)); 

//select  the  small  font  and  label  the  x-axis  of  the  plot 

SelectFont(PlotPaintDC,hSniallFont); 

for(i=0;i<ll;i++){ 

length  =  sprintf(buffer,  *%2.  ir, i/10.0); 

TextOut(PlotPaintDC, 

(intX(origin_gr^h(graph_origin_indexl.x+left.x-5+i*25)*widUi/640.0), 
(intX(origin_graphigraph_origin_indexj.y+righLy+10)*height/480.0), 
buffer,  length); 


} 

A  switch  is  used  in  calculating  the  maximum  and  minimum  values  to  be  plotted.  If 
the  plot_component_flag  is  zero  or  one,  then  only  the  first  or  second  component  is 
considered.  Otherwise  both  components  are  considered  since  they  will  be  plotted 
together. 

//if  the  plot_oomponent_flag  is  one  or  two,  look  at  only  that  component  to 
//find  the  maximum  and  minimum  values  to  plot,  otherwise  consider  both 

switch(plot  component  flag<2) 

{ 


« 


cawfidae; 


ftrCH^^eauariwr.iadiiOKi-^)  ( 

BMx.vahw* 

iiiax(aiax_value.paraflieierO*aiax_fad+t]); 

aun_valiie~ 

aiiiiKiniajvalue,iMfainelefti*iiiax_fad+i0; 

> 

> 

break;} 

casetnie: 

{ 

for(i^;i<niiiiiber_ndiiIplot_comp(»ent_flag];i-H-){ 

iiiax_value  °° 

iiiax(iiiax_va]ue,|iafaiiieter(plot_cofflpoiient_f]ag*iDax_rad-»-i]); 

iiuii_value* 

iniii(iiuii_va]ue,pafaoieter(pk>t_component_flag*inax_rad+il); 


break;} 

} 


The  maximum  and  nunimum  values  are  adjusted  to  a  reasonable  range  for  the  plot 

and  the  y  axis  scale  is  plotted  with  the  appropriate  number  of  rignificant  digits. 

//adjust  the  maximum  and  minimum  values  such  that  the  range  of  the  plot 
ira  reasmiable  and  the  values  are  printed  to  the  correct  number  of 
//significant  digits 


/fifthe  maximum  value  is  greater  than  zCTo.  use  logs  to  establish  the 
//maximum  value  as  a  round  number  slightly  higher  than  the  maximum  value, 
//otherwise  set  the  maxinwm  value  to  0.0 


if(max_value  >>  dd) 

max_value  *  pow(10.04loor(logl0(max_value)))* 
(1.0fflooi(niax_value/(jxrw(10.0j[loor(logl0(max_value)))))); 

< 


dae  tf[max_value  <>  -dd) 


« 
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c 


iiHn_value  ••  0.0; 

//if  tiMi  miiiinim  ichm  i«  leM  than  wm,  iMe  l<>g«  to  e«aWi«h  the 
//■nininmai  v«hi«»  aa  »  mtind  mimhef  «li[{lltly  lower  than  the  minimum  value, 

//olhennae  act  the  miniiiMiin  value  to  0.0 
if(iiiia_value  <-  -dd) 

iiiia_value  -  •(|»w(10.041oor(logl0(fiba(imn_value))))* 
(1.0+floor(firi»(iiim_valuey(pow(10.0,flo(M<k>gl0(&fas(nun_value)))))))); 
elae  if(iiiin_value  >>*  0) 
miii_value  =  0.0; 

/M  the  maximum  and  minimum  values  an  veiy  close  toother,  spread  them 
//apart  slightly 

ig[max_value  •  min_value<del) 

{  max_value  »  max_value  +  0.1; 

if((min_value  -  0. 1)>  0.0) 

min  value  =  min  value  >0.1; 

> 

//find  the  difference  between  the  maximum  and  minimum  values 
delta  *  max_value  •  niin_value; 

/^tialize  the  decimaljdaoes  indicator 
decimal_plaoes  ^  2; 

if(ab8(max_value)>del) 
decimaljriaoes  = 

niin(floor(loglO(fabs(max_value))),decimal_places); 
i9Cabe(min_value)>deO 
decimaljrlaces  = 

min(floor(loglO(&bs(mui_value))),decimal_places); 

//labd  the  y-axis  based  on  the  value  of  the  deciinal_places  indicator 

switch(decimal_]riaoes){ 

case  2: 

( 


» 


» 


i 


i 
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length  o  nprintf[bitffer.  ''Sd*.(intXniax_vahie-((i*ddtayiO.O))): 

TextOul91otFaintDC.(intX(origia jgnph(fngh  origia  iadex).x+left.x-»- 
•hilt«4<40)*widdiA64b.0), 

(iatX(orifia jgnph(giafth  origia  iadex].y4-left.y- 

3+t*9)*hei^4SO.O)rbiiflerrie^); 

> 


« 


bleak;} 

caae  1: 

{ 

fi)r(i*0;i<ll;i++){ 

length  »  aprintftbuffer.  "%5.0f  .inax_value^(i*(letlayiO.O)); 

TextOiit(Plo(PaintDC.(intX(originjgraph(gn^  origin  index].x+lelt.x-*- 
shift*3-40)«width/6M.0).  ~ 

(intX(origin _graph{gnph  origin  indexl.y+ldty* 
3+i*9)*heighy480T0).  buffer,  length); 

} 


break;} 

caaeO: 


for(i”0;i<l  !;>++){ 

length  >  sprintfCbuffo’,  "%S.ir,niax_valiieK(i*<leltayiO.O)); 

TextOul(PlotPaintDC,(intX(origin .jgnq»h(graph_origin_index].x-i-leftx-i- 
shift*3-40)*width/640.0). 

(intX(origin .gnph(graph  origin  index].y+left.y- 
3-H*9)«beight/4«)T0).  buffisr.  length); 


} 


break;} 


fbi(W);i<l !;!++){ 

length  ■>  aprintftbaffer,  *%S.2f'.niax_valueK(>*<ieltayi0.0)); 
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TextOi«Cno(PaiatDC.(iiitX(oricia .jnviiIgriph_origia_iiKkx].x-fkftx-«- 
duft^-40)«wiillhtf40.0). 

(intXCorigui jgii|44(iiph_origiii_iBdexl.y+ldty> 
3-H*9)*lMighl/4IO.OX  bufier,  ka^); 


> 


bicak;} 


i 


CMC -2: 

{ 

lb*(W);i<ll;i++M  ^ 

length  *  qmiitf(bufler.  "%S.3r,iiiax_valiie-((i*deluV10.0)); 

TexlOiit(PlotPamtDC.(iiitX(origin .^graph[gnph  wigin  iiidex].x+leftx-t- 
sliift«l-t0)*width/640.0). 

(intX(originjgnph(graph  origin  indexj.y+lefty-  » 

3^«9)«lieiglit/4«).0).  bu^.  length); 


} 


break;}  p 

debult. 

{ 

foi(i^,i<l  1  ;*++){ 

length  »  sprintf(buffer,  "%5.4r,niax_val«e-((i*delta)/l0.0));  ^ 

Texi!Oit(PlotPaintDC,(intX(origin .jraph;graph_origin  index].x+Iefl.x- 
40)«wkitfa/640.0). 

(intX(origin _graph(graph  ori^  index].y+lefl.y> 

3-H«9)*height/480T0),  buffer,  length);  ^ 

} 


break;} 

} 

//aelect  the  nonnal  size  font  for  ptotting  the  kqr  and  page  # 
SelectFoat(PlotPaintDC,hFont); 


i 


» 


350 


The  {riot  is  drawn  using  t  switch  to  detennine  if  one  or  both  of  the  components 
should  be  plotted.  The  plots  ire  drawn  with  polylines,  using  circles  to  mark  the  individual 
pmnts.  The  adid  pens  are  used  for  the  single  component  plots  and  for  component  one  on 
the  dual  component  plots.  The  dotted  pens  are  useo  for  componoit  two  on  dual 
component  plots. 

//if  the  plMjOOtnpoiieat.flag  is  one  or  two.  plot  oely  the  values  fiv  that  component,  otherwise  {riot  both 
//oBthesamegnvh 

switdi(plot  oomponeat  flag<2) 

( 

caaefidse: 

{ 

//loop  thfough  the  two  oooqxHients  for  the  case  where  both  will  be  plotted  together 
for(i-Oj<2-j++){ 

//select  the  color  pen  for  the  appropriate  graph 

SdectPen(PlotPaititDC.IiPlotPen|graph_Migiii_tndex]iO)); 

//loop  through  the  points  to  be  plotted,  and  for  each  point  calculate  and  store  the  x  and  y  coordinates  to 
// be  plotled  also  draw  a  drcie  using  the  solid  pen  to  indicate  the  location  of  the  point 

fot(i-0;i<nuttd)er_radiiy];i-H>)  ( 

point(i].x  ~  (intX(origin ,^paph(grapfa  origin  index].x+ 
left.x+RADlUS[jl(i]*250)«w^640.0); 

pointIi].y  -  (intX(origin _grqdi[graph_originJndex].y-i- 
left.y-<(patanieterO*niax_ra<Hil-niax_valuey 
ddta)*90)*lieight/480.0); 

Ellipse(PiotPaintDC,poiiit|i].x-2,poiiU(i).y>2,point[i].x+2, 

pointIi].yf2); 

> 

//select  the  st^  and  color  pen  for  the  appropriate  oomponeot  and  graph 
SelectPenO*lotFiinlDC,liPlatPien[graphjorigin_itidex]U]); 

//plot  the  pol^ine 

Pofyline(PlotPaimDC.point.nuinber  tadiiy]); 

} 


//plot  the  for  the  page 


/Avriie  the ‘Oonpooeal  r 

leagih  » tpriaiUbiifier,  *Coaip(iiic«t  iW  j»l>; 

Te]ilO«iaioffeinllX;CiatX90*wi^^ 

CiiitX(40(Hj*20)*heighl/4S0.0X  buffer,  fenglh); 

/^•iiig  dw  aggrapiiale  pen,  draw  a  line  that  iadicalei  wUch  polyUne 
/^componeiittlMulwMchii  component  i2 

Sdecd>eii(PlodbundX:.liPlotPeii(OI(iD; 

MoveTo(inotI>ainlIX:.(intX170^v^^ 

(iiitX(408-»j*20)*lieight/480.0)); 

lj]ieTo(I%>tPaintDC,(iiitX183Svidt^ 

(iiitX(408-»j«20)«height/4S0.0)); 

} 

break;} 

case  true: 

{ 

//select  the  color  pen  for  the  appropriate  grs^th 

SelectPen(PlotPaintDC,hPlotPen(giaph_origin_index](0]); 

//loop  through  the  points  to  be  (riotted,  and  for  each  point  calculate  and 

//store  the  X  and  y  coordinates  to  be  pkMed 

//also  draw  a  circle  using  the  solid  pen  to  indicate  the  location  of  the 

//point 

fer(H);i<nttiiiber_radii(plot_component_flag];i-i-r-){ 

poiiit(i].x  » (intXCorigin _gr!q>h[graidi_(»igin_indexl.x+ 
lefLx-t-RADIUS{plot_compooentjaagi(i]*25^*widtli/640.0); 

poiat(i].y  -  (intXCorigin _gra|di(graph_(vigin_index].y4- 
leftyKCparameteHplot  oomponent_flag*inax  rad+ij- 
iiiax_valueVddta)*90)«height/480.0); 

Ellipee(PlotPluntDC.point(i|.x*2,poiiit(iI.y-2,point[i|.x-t-2,point(i].y+2); 

} 

//sdcct  the  color  pen  for  the  appropriate  graph 

Pidylitie(Plo(PaintDC,point,number_radii[plot_coinponent_flag)); 

//write  the  "Componeid  #"  and  draw  a  line  that  indicates  the  pen  style  and 


Ikahot 


leagik  ■>  ^iriall(biiffer,  ‘Component  »Sd*  j>tot_coiiyonent_flay*- 1); 

TexiOiii(notPntiiiIX^(imXSO^^^ 

(intX400«iieiglit/480.0).  bufto.  length); 


} 


bleak;} 


The  page  number  is  drawn  to  the  screen.  The  ori^nal  pen,  brush,  and  font  are 
sdected  back  into  the  device  context,  and  the  fonts,  pens,  and  brush  created  for  this 
fiinction  are  deleted. 


//write  the  "Page  #• 

length  =  sprintftbuffer.  "Page  #%d*,plotj>aget-l); 

TextOut(PIotPaintDC,(uitX50*width/640.0), 

(intX(380)*height/4ao.O).  buffer,  length); 

//restore  the  original  brush,  font,  and  pen 

SelectObject(PlotPaintDC,hOldBnish); 

SelectPen(PlotPaintDC,hOldPen); 

SelectFont(PlotPaintDC,hOldFont); 


//delete  the  brushes,  pens,  and  fonts 

DeieteObjectfhBrush); 

DeleteObject^ont); 

DdeteOlgect(hMediuniFont); 

DdeieOt>ject(hSniallFoat); 

DeleteOb|ect(hStatidardPen); 


> 


for(W);i<2;i++) 

fi)r(H>;i<4;i++) 

I>deteObject(hPltXPaiy)(i]); 


C.4.4  The  printplot  function. 

The  printplot  function  is  almost  exactly  the  same  as  the  paintplot  function.  The 
printplot  function  is  used  to  draw  the  same  output  as  the  paintplot  function,  but  it  is  drawn 


I 
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to  the  printer  instead  of  the  monitor.  The  (nintplot  function  receives  the  handle  to  the 
printer  device  context  after  the  printer  device  context  has  already  been  prepared  for 
paintii^.  The  printidot  fiinction  uses  the  drawprint  function  in  the  same  way  that  the 
paintplot  function  uses  the  draw  function.  Since  the  fitnctions  are  nearly  exactly  alike,  the 
printplot  and  drawprint  functions  are  not  shown  here  and  instead  are  listed  in  the  final 
section  of  this  appendix. 


C.4.S  The  paintout  function. 

The  paintout  function  is  used  to  draw  text  output  files  to  the  Output  Viewer 
window  on  the  monitor.  The  paintout  function  receives  the  handle  to  the  Output  Viewer 
window. 

void  paintout(HWND  hWnd) 

{ 

*  declaie  variables  that  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  fiinction  * 

*^*****0**m**m*******************************0*********************^, 

extern  int  project_flag,  SctoU.Pos,  LinesInWindow,  Total.Lines, 
output_flag.  text.color,  LineHeight; 


*  Variable  declarations 

HDC  OutPaintDC; 
PAINTSTOUCTps; 
RECT  lect; 

HFONThFont, 

hSmallFont, 

hOldFont; 

LOCH^NTIFont; 


//handle  of  the  device  context 

//paint  stiucture 

//rectangle  structure  for 
//  defining  the  text  region 

//fonts  for  text  output 

//original  font 

//logical  font  structure  for 
//  creating  fonts 


char  OUTFILE(14I; 


//a  character  string  indicating 
//  the  output  file 


//pointer  to  a  character  buffer 

//nuoaber  of  bytes  read  by  _liead 

//diqtlaiy  size  scaled  to  640/480 
//  us^  to  scale  the  pdar  plots 

//fik  handle 

The  paintout  fiinction  uses  the  B^inPaiiit  funcdon  to  prepare  the  window  for 
paintiiig.  If  the  there  are  no  PLL  or  PBD  output  files,  the  bulk  of  the  code  is  skipped  and 
the  paint  process  is  terminated.  If  there  are  output  files  to  display,  the  malloc  fimction  is 
used  to  allocate  enough  memory  to  store  a  file  of  the  size  specified  by  max_bu^sz 
parameter.  The  maxjbuf.sz  parameter  is  defined  in  the  header.h  file  as  10000. 

//create  the  device  context 

OutPaintDC  B^inPaint(hWnd,  Aps); 

//only  dacw  output  if  there  is  a  project  open  and  files  to  be  drawn 

if((ptC!iectjaag)ftA((aooessCsuniniary.out”,  0)  =  0)||(access(''pbdout.ktq”,  0)  ^  0))){ 

//allocate  memoiy  f»  reading  the  file  into 

buffer  ••  (char  *)  nialloc((maxJbuf_sz)*sizeof  (char)); 

The  size  of  the  di^lay  area  is  determined  and  scale  Actors  are  calculated  for  the 

purpose  of  making  the  output  device  independoit. 

//determine  the  width  of  the  display  in  pixels  and  the  height  of  the  display 
// in  raster  lines  and  cast  them  as  floats 

width  >  (floatlGetDevioeCaps  (OidPaiiMDC,  HORZRES); 
height  -  (lioat)GetDevioeCaps  (OutPuntDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3.  ensure  that  the  gri^>hical 
// output  made  by  the  program  is  in  that  aqxct  ratio 

il((width/heigiit)>(4.0/3.0)) 

width  »  height*(4.0/3.0); 
else 

height -width«(3.0/4.0); 


dw  *buffer. 

int  numjbyles; 

float  width, 
height; 

HFILE  in; 
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A  rectangle  is  imdaUzed  for  use  with  the  DrawText  function,  scaled  to  the 

(hmensions  of  the  device  context  display  area.  Small  and  normal  »zed  fonts  are  then 

created  for  painting  the  text  output. 

//initialize  the  rectangle  for  displaying  the  file 

rectleft  -  (intK20«wkhh/640.0); 

lectright  =  (intX625*width/640.0); 

recttep  ~  (intXlS*hei^/480.0); 

lectboltom  -  (intX6000*height/480.0); 

//get  a  handle  to  the  device  defoult  foot 

hFont  =  GetStocltFont(DEVICE_DEFAULT_i‘ONT); 

//use  the  device  default  font  to  fill  a  logical  font  structure 

GetObject(hFonil,sizeof](IjOGFONT).&lFont); 

//alter  the  font  size  and  create  a  small  font 

IFonLllHeight  *1 1; 

hSmallFont  >  CreateFontIndirect(AlFont); 


i 


i 
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The  global  integer  variable,  text_coior,  is  used  in  a  switch  to  set  the  color  of  the 
text  drawn  to  the  screen.  The  blue,  green,  red,  and  black  values  are  defined  in  the 

header.h  file.  The  SetTextColor  receives  a  handle  to  a  device  context  and  a  RGB  color  ^  ' 

value  and  sets  the  device  context  text  color  to  the  RGB  value. 

//this  switch  sets  the  text  color  based  on  the  value  ttf  the  text_coIor  flag 

switch(text  color)  ^ 

( 

case  blue:  {  SelTextColor(OutPaintI>C,RGB(0,0,128));  break;  } 

case  green:  {  SetTextColor(OutFaintDC3C^(0, 128,64));  break;  } 

case  red:  {  SelTextColor(OutPaintDC,RGB(2SS,0,0));  break;  } 

caseUadc:  {  SetTextColor(OutPaintDC,RGB(0,0,0));  break;  } 

}  • 


The  OUTFILE  variable  is  a  character  array  that  is  used  with  the  Jopen  function  to 
open  the  q)propriate  output  file.  The  content  of  the  OUTFILE  variable  is  determined  by  a 
switch  that  tests  the  output_flag  variable  to  determine  which  file  is  to  be  printed. 
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//this  switch  writes  the  appropriate  fi!e  name  into  the  OUTFILE 


switch(output  flag) 

( 

casesummaiy: 
case  downstream_velocities; 
case  duct .^geometiy: 
case  abs_niks_calc: 
case  deiailedl; 
case  detaikdZ: 
case  non_axisym_cir 
case  noa_axi^m_fiK: 
case  non_axisyin_cinp; 
case  non_axuym_har 
casepbdktq: 

} 


{ stfcpy(OirrF1LE,*suminaiy.out\0'‘);  break;} 
{  sticpy(OUTFILE,*fiuds.out\0'');  break;} 

{ sticpy(OirTFILE,*ducLgeo\0*);  break;} 

{  strcpy(OUTFILE,*stiess.out\0'');  break;} 

{  strqiy(OUTfILE,‘'()etaill.out\0'');  break;} 

{  strcpy(OUTFILE,''detail2.outVO'');  break;} 

{  strcpy(CXJTFILE.''nonaxi.cir\0'');  break;} 

{  strcpy(OUTFILE.''nonaxi.forV)*);  break;} 

{  strcpy(OUTFILE,"nonaxi.cmp\0*);  break;} 
{  strcpy(OUTFILE,''nonaxi.hai^*);  break;} 

{ strcpy(OUTFILE,''pbdout.ktq\0");  break;} 


The  appropriate  output  file  is  opened  using  the  _lopen  function  and  read  using  the 
tread  function.  The  file  is  then  closed  using  the  Jclose  function. 


//open,  read  into  the  buffer,  and  close  the  data  file 
in  =  JopcnfOUTFILE,  READ); 
num_bytes=  _lread(iii,  buffer,  inax_buf_sz); 

Jclose(in); 

The  small  font  is  selected  into  the  de\nce  context  prior  to  painting  the  output.  The 
vertical  extents  of  the  rectangle  structure  that  will  be  used  with  the  DrawText  function  to 
paint  the  output  are  adjust  based  on  the  position  of  the  scroll  bar  and  the  height  of  a  line  of 
text  in  the  Output  Viewer  window. 

//select  the  small  font  and  save  a  handle  to  the  original  font 
hOldFont  =  SelectFont(OutPaintDC,hSmallFont); 

//adjust  the  top  and  bottom  of  the  temporary  rectangle  structure  to  account  for  the  position  of  the  vertical 
//  scroll  bar  position 

recttop  =“  recttop  -  Scroll_Pos*LineHeight; 

re£lb.>ttom  =  tect.bottom  •  Scroll_Pos'*LineHeight; 


•  •  • 
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The  next  executable  line  of  code  uses  the  DrawText  function  to  paint  the  output 
file  onto  the  Output  Viewer  window.  The  DrawText  function  receives  a  handle  to  a 
device  context,  the  address  of  the  string  to  be  drawn,  the  number  of  bytes  to  draw,  the 
address  of  a  rectangle  structure  that  describes  the  region  where  the  t«(t  is  to  be  drawn, 
and  flags  that  describe  how  the  text  is  to  be  drawn.  The  function  returns  the  height  of  the 
text  that  was  drawn.  This  statement  divides  the  return  value  by  the  hdght  in  pbcels  of  a 
line  of  text  to  determine  the  total  numbM-  of  lines  of  text  painted  and  assigns  the  value  to 
the  Total_Lines  variable.  The  flags  used  are  described  below: 

DT_LEFT-  causes  the  text  to  be  left  aligned. 

DT_WORDBREAK-  causes  Unes  to  be  broken  between  words  if  a  word  would  extend 
past  the  edge  of  the  display  rectangle 
DT_NOCLIP-  draws  the  text  without  clipping 
DT_NOPREFIX-  turns  off  the  processing  of  prefix  characters 

//draw  the  text  file  in  the  region  defined  by  itct  and  calculate  the  total  number  of  lines  of  text  to  draw 

Tolal_Lines^intXDtawText(C>utPaintDC,buffer,num_bytes,  &rect, 

DT_LEFIlDT_WORDBREAKpTjNOCLIP|DT_NOPREFlX)/LincHcight); 

The  scroll  range  is  then  set  based  on  the  total  number  of  lines  of  text  displayed  in 
the  Output  Viewer  window,  using  the  SetScroURange  function.  The  SetScrollRange 
function  receives  a  handle  to  the  window  associated  with  the  scroll  bar  that  is  to  have  its 
range  set,  a  scroll  bar  flag  that  specifies  the  bar  to  set,  the  minimum  and  maximum  scroll 
bar  settings  in  the  range,  and  a  redraw  flag  that  specifies  in  this  case  that  the  scroll  bar  is 
to  be  redrawn. 

//set  the  range  of  the  scroll  bar  to  the  total  number  rtf' lines  so  the  range  covers  the  entire  text  region 
SetScrollRange(hWnd.  SB_VERT.  0,  Total.Lines,  TRUE); 
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The  origiiial  font  is  selected  back  into  the  device  context,  the  memory  used  to 
store  the  text  is  freed,  and  the  fonts  created  for  this  function  are  then  destroyed.  The  paint 
process  is  then  terminated. 

//select  the  original  fimt  bade  into  the  device  context 
SdectFont(OiitPaiinDC,hOtdFont); 

//Gree  the  allocated  memoiy 
firee(bufikr); 

//ddeie  the  foots  created  for  this  function 

DeleteFont(hFont); 

DeleteFont^mallFont); 

> 

//close  out  the  paint  command 
EndPaint(hWnd,  &ps); 

} 

C.4.6  The  printout  function. 

The  printout  function  is  used  to  draw  text  output  files  to  the  system  printer.  The 
function  is  nearly  identical  to  the  paintout  function  in  section  C.4.S  above.  The  printout 
function  receives  the  handle  to  the  printer  device  context.  The  only  other  difference  is  that 
it  does  not  use  any  of  the  variables  associated  wth  the  scroll  bar.  The  function  is  shown 
below. 

void  printoutCHDC  OutPaintDC) 

{ 

*  declare  variables  that  are  de&ied  in  the  pll.c  file  and  that  * 

*  will  be  used  in  this  liiactioa  * 

«««««««•««««*«*«««**««**««««**««*«««««««««***«**«**•«*««**««***«•**«*/ 

extern  int  output.flag,  text_color, 

*  Variable  declarations  * 
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RECT  feet; 

HFCWn'IiFont. 

bOMFoot; 

char  OUTFILE[14]; 

char  *  buffer. 

int  nuiii_bytes; 

float  width, 
height; 

HFILE  in; 


//rectangle  stmeture  for 
//  defining  the  text  region 

//font  for  text  output 
//original  font 

//a  character  string  indicating 
//  the  output  file 

//pointer  to  a  character  buffer 

//number  of  bytes  read  by  _liead 

//display  size  scaled  to  640/480 
//us^  to  scale  the  polar  plots 

//file  handle 


//allocale  memoiy  for  reading  the  file  into 

buffer  >=  (char  *)  nialloc((niaxJbuf_sz)*sizeof  (char)); 

//determine  the  width  at  the  display  in  pixels  and  the  height  of  the  display  in  raster  lines  and  cast 
// them  as  floats 


width  (float)GetOeviceCi4>s  (OutPaintDC,  HORZRES); 
height  ~  (float)GetDeviceCaps  (OutPaintDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
// output  made  by  the  program  is  in  that  aqiect  ratio 

if((width/heiglit)>(4.0/3.0)) 

width  =  height*(4.0/3.0); 
else 

height  =  width*(3.0/4.0); 

//initialize  the  rectangle  for  displaying  the  file 

rectleft  >  (intX20*wi^640.0); 

rectright  >>  (intK62S*width/640.0); 

reettop  (intK15'*height/480.0); 

reetbottom  «  (intX6000*beigbt/480.0); 

//select  the  device  defiuilt  fimt  and  save  a  handle  to  the  origina)  font 

hFont  -  GetStodd?«it(DEVICE_DEFAULT_FONT); 

hOklFont «  SelectFontfOitPaintDC,  hFont); 

//this  switch  sets  the  text  color  based  on  the  value  of  the  text_color  flag 

switcli(text_oolor) 
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caKgnxn: 
catered: 
case  Mack: 
>  . 


{Se<Te]dColor(OutPaiatDCJlGB(0.0.128));  break; } 
{Sen‘extCoMOidPaiiitDCRGB(0.128.64));break;  > 
{Se(TextColor(OiitPaiirtDCJtGB(25S.O.O));  break; } 
{SelTextColor(OutPaiiitDCJlGB(0.0.0));  break;} 


//this  switch  writes  the  appropriate  file  name  into  the  OUTF1LE 


switch(oatpiit  flajO 
{ 

case  sununafy: 
case  downstream_veiocities: 
case  duct .jeometiy: 
case  abe_iules_cak: 
ff*  detailedl: 
case  detailed2: 
case  non_axiqrm_cir 
case  noa_axiqrm_fi>r 
case  non_axisym_cnip: 
case  non_axisyni_har 
casepbdktq; 


{  sticpy(OUTFILE,''suffimaiy.outVO*);  break;} 
{  stiqiy(OirrFILE,*fiuds.outVO*);  break;} 

{ strcpy(OUTFILE,*ducLgeo\0”);  break;} 

{  stfi^OUTFILE,”stress.outVO'');  break;} 

{  stn^OirrFILE,*detaill.outVO*);  break;} 

{ strqiy((XJTFILE,*detail2.out\D'‘);  break;} 

{  strcpy(Ol)TFILE,''nonaxi.ciriO*);  break;} 

{  stfcpy(OUTFIL£,*nonaxi.foiV0'');  break;} 

{  sticpiy(OUTFILE,''nonaxi.cmp\0'');  break;} 
{  strcpy(OUTFILE.*nonaxi.hai\0*);  break;} 

(  strc|)y(OirnnLE,''pbdoutktqVO'‘);  break;} 


//open,  read  into  the  buffer,  and  close  the  data  file 
in  ”  _lopen(OlJTFILE,  READ); 
num_bytes=  _lRad(in,  buffer,  inax_buf_sz); 

_lclo6e(in); 

//draw  the  text 

DiawText(C)utPaintDC,buffer,num_bytes,ftrect, 

dt_leftidt_wordbreakpt_ncx:lipidt_noprefix); 

//free  the  allocated  memoiy 

free(  buffer); 

//select  the  original  font  back  into  the  device  context  and  delete  the  font  created  for  this  function 
SelectFont(OutPaintDC,  hOldFont); 

DeleteFont(hFont); 


C.4.7  The  paint_gniphs  function. 

The  paint _jgraphs  function  is  used  to  draw  the  input  and  output  blade  grids 
wireframe  diagrams,  the  B-spIine  control  net  wireframe,  and  hub  and  duct  images  to  the 
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« 


« 


« 
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passed  device  context,  PaintDC.  This  allows  the  fiinction  to  draw  on  the  screen  as  well  as 
the  (Vinter.  The  function  receives  the  handle  to  the  monitor  or  printer  device  context,  a 
(X)iirt  structure  that  defines  the  locatkm  on  the  display  where  the  plot  origin  will  be,  a 
(winter  to  the  FILE  structure  that  contains  information  about  the  PBD  output  file  that  will 
be  (>lotted,  and  an  index  that  determines  the  color  that  is  used  to  plot  the  data. 

The  D7POINT  structure  is  defined  as  a  cartenan  point  in  7  space.  It  is  defined 
external  to  the  (>aint _graphs  functions  since  it  will  be  used  in  other  functions  used  to  read 
PBD  out(Hit  files  and  draw  PBD  output  plots  on  the  Plot  Viewer  window.  It  consists  of 
seven  floating  (wint  values  organized  in  a  structure. 

struct  D7POINT{  /•7-Dpt*/ 
float  x,y.z,r,u,v,w; 

}D7POINT; 

void  paint_graphs(HDC  PaintDC,  POINT  origin,  FILE  *plot,  int  color) 

{ 

*  declare  variables  that  are  defined  in  the  pU.c  file  and  that  * 

*  will  be  used  in  this  fiuction  * 

extern  int  plotjiage; 

extern  float  sc?Je_£Ktor, 

f******0**0*********^*^*0******V***< 

*  Variable  declarations 

diar  buffer(120]; 

int  i’^,j, 

nextciur^I, 

points j)er_liiie, 
lines, 
lengdi; 

struct  D7POINT  ^points; 


//character  string  for  text  output 

//loop  counters 

//used  for  reading  input  file 

//  character  by  character 

//dimensions  of  array  of  xyz 
//  points  describing  the  wireframes 
//length  of  text  output  strings 

//pointer  to  7d  point  array  used 
//  for  reading  and  storing 
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// detcriptioo  of  the  wireframes 


► 


« 
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float  wMhk,  height, 
X.Y. 

«aleF>lS.O. 

axia"2.0; 

HFEN  hPea(21.1iOlffea; 
PCNNT  origiajBxia; 
HFC»rrhFoiit.hOldFoat; 


//dispbqr  size  scaled  to  640/420 
//3d  pMnt  converted  to  screen 
//coordinates 

//scale  ftctor  to  fit  plot  on  screen 
//scale  &ctor  fitr  the  axis  |dot 

//pens  fbr  drawing  wireframes 

//origin  fi>r  the  axis  plot 

//frmts  for  writing  text  output 


After  variable  declarations  are  made,  the  fimction  creates  a  blue  and  a  green  pen 
fbr  drawing  output  and  gets  a  handle  to  the  device  default  font.  The  size  of  the  display 
area  is  calculated.  A  scale  to  be  used  to  plot  the  data  is  calculated  based  on  user  input 
provided  with  the  PBD  Plot  Geometry  dialog  box. 

//create  a  blue  and  a  green  pen  fry  drawing  the  control  point  grid  and  the  velocity  vectors 

hPtn(01  -  Cieatd>eii(PS_SOLID.  1.  RGB(0.0,255)); 

hPenll]  -  CreatePen(PS_S(XJD.  1.  RGB(0.128.64)); 

//get  a  handle  to  the  device  defiult  fimt 

hFont »  GetStodcFont(DEVlCE_DEFAULT_roNT); 

//determine  the  width  of  the  dis|day  in  pixels  and  the  height  of  the  display 
// in  raster  lines  and  cast  them  as  floats 

width  *  (float)GetDevioeCaps  (PaintDC,  IKXtZRES); 
height  -  (float)GetDeviGeCaps  (PaintDC,  VERIRES); 

Hvact  the  normal  displagr  aspect  ratio  is  4  to  3.  ensure  that  the  graphical 
// ou^wt  made  by  the  program  is  in  that  aspect  ratio 

ifl[(width/height)>(4.0/3.0)) 

width  -  hdght*(4  on  0); 
dse 

height  -  width*(3.0/4.0); 

//sdect  die  device  definilt  fiant  and  the  pen  indicated  by  the  color  index 
// passed  in  the  frinction  call  into  the  device  context  a^  save  handles  to 
// the  original  fbnt  and  pen 

hOhront  -  SekctFontfPaiMDC,  hFont); 
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hOldPea  -  SdectPeii(PaiiitDC,hPeii(oolor]); 

//aiyiiit  Uie  acak  fiKlor  by  an  mount  deleraiiiied  tv  the  user 

The  function  now  reads  in  the  date  to  be  plotted.  The  output  files  written  by  the 

PBD  FORTRAN  executable  are  in  a  standard  fcwmat  for  use  by  a  graphics  program.  The 

first  two  lines  are  not  used  by  this  function  and  are  therefore  discarded.  A  while  statement 

is  used  to  read  the  data  characto*  by  character  umg  the  getc  function  until  a  carriage 

return  or  linefeed  statement  is  encountered. 

//lead  in  the  data  to  be  pkMed 

//soap  the  first  line 

while  (nextcharHI3Aftoextcharl=10) 
nextchar  -  ge(c(plot); 
nextehar^  1; 

//scrap  the  second  line 

while  (nextcliart^l3AAnextcharl’>’10) 

nextchar  =  getc(ploO; 
nextchar  >=1; 

The  function  then  employs  a  while  statement  to  check  for  the  end  of  the  data  file. 

If  the  end  of  the  data  file  is  not  found,  the  function  reads  the  next  zone  of  the  data  file. 

This  is  done  in  order  to  allow  the  function  to  handle  data  files  with  multiple  zones,  such  as 
an  output  blade  grid  file  which  will  have  a  separate  zone  for  each  blade  and  an  additional 
zone  for  the  transition  wake. 

//the  purpose  of  this  while  statemeiU  is  to  allow  the  fiinction  to  read  and  plot  a  series  of  wir^ames  fiom 
//  the  same  file,  as  in  the  case  of  a  pbdouLobg  file  which  contains  zones  for  all  of  the  blades  as  well  as 
//  the  transition  wake 

while((nextchar-getc(plot))l=ECXO{ 

The  next  five  lines  of  executable  code  search  the  next  line  in  the  data  file  for  the 
second  sign.  The  fiinction  then  reads  the  first  dimension  of  the  data  array  into  the 
points_per_line  variable. 
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//extnct  the  MHite  of  poiato_per_liBe  and  the  nuaber  of  lines 
^  //rend  dttthiid  line,  looldag  for  the  fintetpnltign 

while  (nextchari-61) 

MPirtrhar  »  y«r^pln«)- 

^  //oontiaue  tending  the  duid  line,  looking  fbr  the  aecond  equal  a(n 

nAile  (nextdiarl"61) 

£Kani(plot,‘'Sd*,Apoints_per_Une); 

nexidiai-l; 

^  The  third  *=*  sign  encountered  keys  the  function  to  read  the  second  dimension  of  the  data 

array  into  the  lines  variable.  The  rest  of  the  line  is  then  discarded. 

^  //continue  reading  the  third  line,  looking  for  the  thifd  equal  sign 

while  (nextcharl«61) 

nextchar  >  getcfplot); 

£Kanfl^>lot,*Sd",Alines); 

^  //scnp  the  rest  of  line 

while  (nexlcharl»13ftAnextcharl-10) 
nextchar  =  getcfplot); 

<  Memory  is  then  allocated  for  storage  of  the  file  data  in  the  points  array  using  the 

malloc  and  sizeof  functions.  The  data  is  read  into  the  points  array  using  two  for  loops. 
The  points  array,  although  it  contains  a  two  dimenaonal  array,  is  accessed  as  a  one 
*  dimensional  array.  Notediattheindexofthearray  is  indicated  as ''i*points_per_line4j". 

This  index  refers  to  the  jth  column  in  the  hh  row,  wh««  the  column  and  row  indices  run 
fix)m  zero  to  "lines-1  *  and  zero  to  "points_p«-_line-r  respectively. 

^  //allocate  memory  for  storing  the  points  that  describe  the  wireframe 

points  -  (struct  D7POINT  *  )  malloc((lines*points_per_iine)*sizeof  (struct  D7POINT)); 
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//md  aad  Mote  tbe  poiat  dMa 

te  (H);  Kliaeo;  H-t-)  { 

fiKaal(plot.”Sf  Sf  Kf  %f  Sf  Sf.  d4»iiitsIi*poiiits_per_iiii^].x. 

Apotatt(i*poiiitt_per_liar»j].y, 

A|wiiili(i*|wiatt_|wr_liiietii.r.  Apoiiils(i*poiiilsjier_liiieti].u. 

44Miiits(i*poial8_per_linetii-v.  Apoiiits{i*poiiits_per_liiievj].w); 

} 

> 

The  rest  of  the  line  is  then  discarded  character  by  character  until  a  carriage  return 
or  linefeed  is  oicountered  in  ordo*  to  prq)are  the  file  so  that  the  next  zone  may  be  read, 
//scrap  the  rest  line 

while  (iiextciiarl>13AAiiextchar!°10) 
nextchar  =  getc(plot); 

nextchar  -  getcOdot); 

The  text  alignment  for  the  device  context  is  set  to  center  adjusted  and  the  plot 
label  is  drawn  at  the  top  of  the  page  using  the  TextOut  function.  The  label  drawn  is  a 
function  of  the  plot_page  variable  value  since  tlw  paint  jgraphs  function  is  used  for 
drawing  the  input  blade  grid  and  B-spline  net  as  well  as  the  output  blade  grid  and 
tranrition  wake. 

The  strlen  function  is  used  to  provide  the  length  of  the  text  to  be  drawn.  The 
strien  function  recdves  a  string  or  the  address  of  a  string  and  returns  the  length  of  the 
string  minus  the  null  terminating  character. 

//label  die  plot 

SerrextAlign(PaiiitDC.TA_CENTER); 

//determine  the  label  by  testing  the  plot j»ge  flag 

switchfplotjxige) 

{ 

c—e  4:{  TextOut(PaintDC,(iiitX320*wi<llh/640.0), 
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(iatX10*lieig|it/4S0.0X  "INPUT  BLADE  GRID  AND  B-SPLINE  NETVO", 
ttkaCINPUT  BLADE  GRID  AND  B-^JNE  NETVO”)); 

bicA;  } 

caKS;{  TexiOiil(PiiiRDC(iiRX320Smtdi/^ 

(iBtX10*lieig|it/480.0).  "OUTPUT  BLADE  GRID  AND  CENTERB(X)Y>0". 
mteaCWIPUT  BLAI«  GRID  AND  (XNTERB(X)YVO")); 

bmk:  > 

} 

The  text  atignment  is  restored  to  left  adjusted  and  an  ori^  is  defined  for  use  in 
drawing  the  xyz  axis  on  the  plot. 

SetTextAligii(PaiiitDC.TA_LEFT); 

//define  the  axis  origin 

origin_axis.x  » (uitX40Sridth/640.0); 

(mgin_axis.y  (intX410*height/640.0); 

The  wirefi’ame  diagram  is  then  drawn  u^g  two  sets  of  two  for  loops.  The  first  set 
of  two  for  loops  is  used  to  loop  through  the  data  array  and  draw  lines  connecting  each 
point  in  succeeding  rows.  The  second  set  of  two  loops  connects  each  point  in  succeeding 
columns. 

The  rotafion_projection  function  receives  floating  point  x,  y,  and  z  cartesian 
coordinates  and  pointers  to  the  x  and  y  coordinate  variables,  X  and  Y.  The  function 
rotates  the  point  about  the  appropriate  axis  using  the  globally  defined  and  user  input  pitch, 
roll,  and  yaw  angles,  and  projects  the  point  onto  the  z  =  0  plane  in  order  to  prepare  the 
three  dimensional  data  for  two  dimensional  plotting.  The  x  and  y  values  are  assigned  to 
the  X  and  Y  variables.  This  is  done  to  allow  the  user  to  view  the  output  data  in  any 
orientation.  The  Fotation_projection  function  will  be  described  in  more  detail  below. 

The  MoveTo  function  is  used  to  change  the  pen  location  to  a  point  corresponding 
to  the  first  point  in  the  next  row  or  column  without  drawing  a  line.  The  LineTo  calls  are 
used  to  connect  the  subsequent  points  in  the  row  or  column.  The  x  and  y  screen 
coordinate  points  are  scaled  by  the  user  determined  scale  factor  internal  to  the  MoveTo 
and  LineTo  calls  so  the  output  nuy  be  viewed  in  any  scale. 


ftir  (jH)r,  i<liatt;  H-»-)  { 


ratilk»jin9ectioa(poiii(s(i*paiitt  poiiits(i*poiiitsj)er_lijie].y. 

poiiils(i*pouitt_per_liiie].z,  AX.  AY); 


MawTo(Paii«IX;(iiitX(origiax4«ale*(X))*widtl^ 

CiiitX(ori^y4cale«(Y))*lieight/480.0)); 


tot  (j-l;  j<{poiatsjMr_liiie; 


rotatioaj)fpieGtk»(poiitt{i*poinlsjper_liiie^].x,  points|i*points_per_Iine+j].y, 
poiiits(i*paiBts_per_liiie4j].z,  AX.  AY); 


LiiieTo(PaiiitDC.(iiitX(ongia.x+scale*0O)*wi<ltb/^-0), 

(iiitX(origin.y*scaie*(Y))*hei0il/48O.O)); 


tot  j<poiiits_per_Iiiie;  j++)  ( 


rotation jirqjectioii(pointsIj].x.  pointsUl.y. 
points(j].z.  AX.  AY); 


i  • 


MoveTo(FaiiitDC,(iJitX(origin.x-fscale*(X))*width/640.0), 

(intX(origin.y-^e*(Y))*lieight/480.0)); 


for  (i»l;  iciines;  i++)  { 


rotation jMaiectioa(pouits{i*points_pa’_tiiio^j].x, 
poiiMs{i*points_per_line4i].y, 
points(i*point8_pa’_Un&»-ji.z,  AX.  AY); 


LineTo(PaintDC,(intX(origin.x-*'Scale*(X))*width/640.0), 

(intX(origin.y-scale*(Y))*liei^ltt/480.0)); 


The  memoiy  allocated  to  store  the  plot  data  is  then  freed  using  the  free  function. 
The  original  pen  is  sdected  back  into  the  device  context  and  the  xyz  axes  are  drawn, 
rotated  through  the  same  pitch,  roll,  and  yaw  angles  as  the  wireframe  diagram. 


//free  the  allocated  memoiy 


fiee(poiins  ); 

> 
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/Meet  the  ori^aal  pea  iaiP  the  device  ooolext  and  Ubd  tiK  (xj^.z)  wes 

SekcffenOhuiitDC  hOkfffen); 

//diaw  the  tQfz  axes 

raialiQoj»qiectiaa(axis  1.0, 0.0, 0.0,  AX,  AY); 

length  *  qKimflMBtf.  *x*); 

TextOutCPaintDC,  (iiitX(ori^_axis.x+X)*widtb/640.0), 
(intX(origui_axii.y-Y)*heighl/480.0), 
bulfo,  length); 

rotatkajmgectionCO.O,  axis  +  1.0, 0.0,  AX,  AY); 

length  -  tprintf(bitffiEr,  "yO: 

TextOiit(PiintDC,  (intX(ofigin_axis.x+X)*widlh/640.0), 
(intX(origin_axi8.y-Y)*lieight/480.0), 
buffer,  length); 

rotation jin>jection(0.0, 0.0,  axis  +  1.0,  AX,  AY); 

length  «•  sprintf(buffer,  *z*); 

TextOutCPaintDC,  (intX(origin_axis.x+X)*width/640.0), 
(intX(<»rigin_axis.y-Y)*hcight/480.0), 
bu^,  length); 

iotation_piojection(axis,  0.0, 0.0,  AX,  AY); 

MovcTo(PaintDC,(intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*wi<hh/640.0), 

(intX(origin_axis.y)*heightM80.0)); 

rotation jmgection(0.0,  axis,  0.0,  AX,  AY); 

L4ncTo(PaintDC,(intX(origin_axis.x+X)*width/640.0), 

(intX(oiigin_axis.y-Y)*height/480.0)); 

rotation jMqjectkmCO.0, 0.0,  axis,  AX,  AY); 

MoveTo(PaintDC,(intX(ofigin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*heightC480.0)): 

LineTo(PaintDC,(intX(oiigin_axis.x)*wi<hh/640.0), 

(iii*X(origin_axis.y)*hcight/480.0)); 
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The  originel  font  is  selected  back  into  the  device  context  and  the  pens  and  font 


created  for  this  fonctton  are  ddeted. 


//select  the  origiiial  foot  back  into  the  device  cooiext 


SelectFoot(PaiiitDC,hOhlFoin); 


//ddele  the  pens  and  foot  created  for  this  functioa 


OeieteObject(liFeii{OD; 

DeieSeObiect(liFeii(lD; 


DeleteFoat(hFoiit); 


The  rotation_projection  function  recdves  an  xyz  pomt  and  pointers  to  two  floating 
point  X  and  Y  values.  The  function  rotates  the  xyz  point  through  the  user  defined  pitch, 
roll,  and  yaw  angles,  and  projects  it  onto  the  Z  =  0  plane  in  order  to  prepare  it  for  plotting 
on  the  monitor  or  printo*.  The  result  is  placed  in  X  and  Y  variables. 


void  iotation_proiection(float  x,  floaty,  float  z,  float  *  X.  float  *  Y ) 


»  • 


extern  float  coa.ioU; 
extern  float  sin_r(dl; 
extern  float  oo6_yaw; 
extern  float  sinjraw; 
extern  float  oos_pitch; 
extern  float  sin_pitch; 


float  dz  » 10.0; 
float  xaja,za; 


xa  =  eos_yaw  *  x  -  sin_yaw  ♦  z; 
za  **  sin_yaw  •  x  +  oosjraw  *  z; 


*X  -  cos_roU  •  xa  +  sin_ioU  *  y. 


ya»  eos_ioII  ♦  y - sin_ioU  ♦  xa; 


•Y*  sin jHtch  *  za co8_pitch  *  ya; 


•X-(dz*(*X)); 

*Y-(dz*(*Y)); 

> 


370 


C.4.8  The  paiDt_hub  function. 


The  p^t_hub  function  receives  the  handle  to  a  device  context,  a  point  on  the 
screen  to  use  as  the  plot  origin,  and  a  pointer  to  a  FILE  structure.  It  draws  the  centerbody 
described  in  the  data  file  to  the  screen  or  the  printer  depending  on  the  device  context 
passed. 

void  paint_hub(HDC  PaintDC,  POINT  origiii,  FILE  *plot) 

{ 


*  declare  variables  that  are  defined  in  the  pll.c  file  and  that  * 

*  will  be  used  in  this  function  * 

extern 

float  scaIe_factor, 

extern 

street  D7POINT  {  /♦  7-D  pt  ♦/ 

float  x,y,z,r,u,v,w; 

}  D7POINT; 

*  Variable  declamtions  * 

int 

'.j. 

nextchar=l, 

//loop  counters 

HwseA  for  reading  input  file 
//  character  by  character 

points_perJiiie, 

lines; 

//dimensions  of  array  of  xyz 
//  points  describing  the  hub 

struct 

D7POINT  ^points; 

//pointer  to  7d  point  array  used  for 
//reading  and  storing  description  of 
//hub 

float 

width,  height, 

XY, 

//display  size  scaled  to  640/480 
//3d  point  converted  to  screen 
//  coordinates 

scale*  15.0; 

//scale  factor  to  flt  plot  on  screen 

*  declare  structure  variables  * 
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HPEN  hRedPen,  hOMPea; 


//pens  for  drawing  hub 


The  function  creates  a  red  pen  for  drawing  the  output.  The  size  of  the  display  area 
is  calculated  and  a  scale  to  be  used  to  plot  the  data  is  calculated  based  on  user  input 
provided  with  the  PBD  Plot  Geometry  dialog  box. 

*  determine  the  size  of  the  device  context  to  be  written  to,  this* 

*  allows  the  function  to  be  device  independent  * 

//create  a  red  pen  and  store  a  handle  to  it 

hRedPen  =  CteatePen(PS_SOLID.  1,  RGB(255,0,0)); 

//determine  the  width  of  the  di^lay  in  pixels  and  the  height  of  the  display  in  raster  lines  and  cast 
//  them  as  floats 

width  =  (float)GetDeviceCaps  (PaintDC,  HORZRES); 
height  =  (fIoat)GetDevioeCaps  (PaintDC,  VERTRES); 

//since  the  normal  diq>lay  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
//  output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)><4.0/3.0)) 

width  =  height*(4.0/3.0); 
else 

height  =  width*(3.0/4.0); 

//select  the  red  pen  and  save  a  handle  to  the  original  pen 
hOldPen  =  SelectPen(PaintDC,hRedPen); 

//adjust  the  scale  hictor  by  an  amount  determined  by  the  user 
scale  =  scale_£actor  •  scale; 


The  number  of  lines  of  data  and  number  of  points  per  line  is  extracted  as  described 

in  section  C.4.7  above. 

//read  in  the  data  to  be  plotted 

//scrap  the  line 

while  (nextcharN13ftAnextcharN10) 
nextchar  =  getc(plot); 
nextchar  ^1; 

//scrs^)  the  second  line 
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while  (iiextclitfl-13A&nextcharl»10) 
nextchar  -  getc(piot); 
nextchar-l; 

//extract  the  nunAer  of  pointt jier.liiie  aad  the  tnunber  of  lines 

//read  the  thifd  line,  tooldag  for  the  fifst  eipial  sign 

ndiile  (nextcharl»61) 

nextchar  >  getc(ptot); 
nexlchar-1; 

//continue  reading  the  third  line,  looking  fw  the  first  second  equal  sign 

while  (nextdiarl^l) 

nextchar  »  getc(plot); 

//read  the  points  per  line 

£9canf(plot,'^".&points_per_line); 

nextchar^l; 

//continue  reading  the  third  line,  locddng  for  the  first  second  equal  sign 

while  (nextchar!°=61) 

nextchar  ==  getc(plot); 

&canf(plot,"%d”,&lines); 

//scrap  the  rest  of  line 

while  (nextcharl=13&&nextchar!=10) 
nextchar  ==  getc(plot); 

Memory  is  allocated,  the  data  file  is  read,  and  the  wireframe  diagram  is  drawn 
the  same  way  as  described  in  section  C.4.7  above. 

//allocate  memory  for  storing  the  points  that  describe  the  hub 

points  ”  (struct  D7POINT  * )  malloc(Oines*points_per_tine)*sizeof  (struct  D7POINT)); 
//read  and  store  the  point  data 

for  (H);  i<lines;  i++)  { 

for(j=0;j'«^ints_per_liiie;j++)  { 

£scanf(plot,*%f  %f  %f  %f  %f  %r,  &points[i*points_perJine+j]  .x, 

Apoints[i*points_perJine+Jl.y,  Apoints(i*pointsj)er_Une+jl.z, 
&pointsli*points_per_line+ji.r,&points[i*points_per_line+jl.u. 
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Apoiiits(i*pou>ts_per_liiw4j].v.  Apoiiits(i*points_per_liiie+j|.w); 


//disw  the  wiKfirame  diagram 
lbr(i-0;i<linet;i++){ 


i«atioojm)iectioii(points{i*p(^j)CT^  points[i*poiiitsj)er_liiie].y. 
poiiits(i*pmnts_per_liQe].z.  AX.  AY); 

MowTo(PaiiitIX^(imX(ofigiii.xHcale*(X))*width/640.0), 

(intX(origiii.y-scale*(Y))*lieig^480.0)); 


for  j<poiat8j)er_line;  j++){ 

rotation_proiectioii(pomu(i*poiiitsj)er_lin^^  pointsli^pointsjwr  lini^j]  y 
poiiits(i«points_ptf_liae4-j].z,  AX.  A^; 

LiiieTo(PaintDC.(intX(origin.x+scale*(X))*width/640.0), 

(uitX(origui.y-scale*(Y))*hei^t/480.0)); 


for  (i=0;  j^ints_per_liiie;  j++)  { 

n)tatfonj|>rqiectioii(pointsljl.x.  pointsUl.y.  points[j].z,  AX,  AY); 

MoveTo(PaiiitDC,(intX(origin.x-Hscale*(X))*widUi/640.0). 

(intX(origin.y-scale*(Y))*height/480.0)); 

for  (i=l;  i<liiies;  i++)  { 

iWation_projcctioii(pointsti*points_per_liiie4-jI.x,pointsli*points_per_liiie+jJ.y 

poiiits(i*points_per_Uiie«j].z,  AX.  AY); 

LiiieTo(PamtDC,(iiitX(origui.x+scale'*(X))Svidth/640.0). 

(intX(origin.y-scale*(Y))*hei^t/480.0)); 

> 

> 

The  memoiy  used  to  store  the  plot  data  is  freed  using  the  free  function,  the  original 
pen  is  selected  back  into  the  device  context,  and  the  pen  created  for  this  function  is 
deleted. 

/^ee  the  allocated  ntemoiy 
fiee(  points  ); 


I 


//■elect  the  origuial  pen  bade  into  the  device  coolext 
Sdec«Pen(PhintZX:.  hOldPen); 

//delete  the  pen  ctenled  fin  this  fiinction 
DdeteOtiject(hRedPen); 

> 
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C.4.9  The  paintjpp  function. 

The  paint.^giq)  function  draws  the  circulation  contour  plots  described  in  the 

PBDOUT.GSP  or  PBDOUT.SOL  files  to  the  monitor  or  printer.  The  function  receives  a 

handle  to  the  device  context,  the  origin  at  which  the  plot  is  to  be  printed,  and  a  pointer  a 

FILE  structure  that  contains  information  regarding  the  data  file  to  be  plotted. 

void  paint _£i9(HDC  PaintDC,  POINT  origin,  FILE  *plot) 

{ 

*  declare  variables  that  are  defined  in  the  pU.c  file  and  that  * 

*  will  be  used  in  this  function  * 

«*•«*•«•«*««««**««*««««««*•*•««*«««««««**«•*«******•******•*•******«*/ 

extern  struct  DTPOBNT  {  /*  7-D  pt  •/ 

float  x,y.z,r,u.v,w; 

IDTPOIOT; 

extern  float  scale_fiictor, 

*  Variable  declarations  * 

m*0m***m****0**m*0***************************************************/ 

char  bu£feitl20],  //character  string  for  text  output 

titlelSll- "BOUND  CIRCULATION  STRENGTIW)*;  //plot  title 

int  i^.j,  //loop  counters 

nextchar-1,  //used  for  reading  input  file 

//  character  by  chaiader 


pointsjier.Iine, 

lines, 

leng^ 

id. 


//dimensions  of  array  of  xyz 
//  points  describing  the  wireframes 
//length  of  text  output  strings 
//index  indicating  color  to  paint 
//  the  contour  plot  polygon 


4 
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• 

dnninv; 

//(hinuny  int^er  for  reading 

// data  not  used  by  this  function 

atnici 

D7POINT  *points; 

/^poinler  to  7d  point  am^  used 
// fitr  reading  and  storing 
//the  plot  data 

• 

float 

width,  height. 

//disph^  size  scaled  to  640/480 

scak^lSO.O. 

//scale  fiKtor  to  fit  plot  on 
//screen 

• 

maxjUacrele  « *100.0. 
mia.discrete  - 100.0, 
max_den8ity  ■■•100.0, 
min_daisity  ~  100.0; 

//max  and  min  values  for  the 
//  bound  vortex  strength 

HPEN 

hPea(6]. 

hCNdPen; 

//pens  for  drawing  the  plots 

• 

HBRUSH  hBrush(6]. 

hOldBrush; 

//brushes  for  drawing  the  plots 

HFONThFont, 

hOldFont; 

//fonts  for  writing  text  output 

• 

POINT  origin_axis, 
origin_dis, 
origin_den, 
polylsT; 

//origin  for  the  axis  plot 
//origin  for  the  disctue  plot 
//origin  for  the  density  plot 
//array  of  points  that  d(£ne 
//  the  polygons  to  be  plotted 

•  ». 

CMgins  for  the  discrete  and  density  plots  are  calculated  based  on  the  origin  passed  ‘ 


with  the  function  call.  Sbc  pens  and  brushes  are  created  for  drawing  the  contour  plots. 
The  device  detiuilt  font  is  created  and  tlw  size  of  the  display  is  calculated. 

//define  the  origins  of  the  disoete  and  the  denaty  plots  based  on  the  origin  passed  with  the  function  call 


origin_dis.x  >  origin.x>240; 
originjlis,y  *  origin.y; 


origin_deax  >  oiigin.x+80; 
origin_den.y  -  origin.y; 

//create  brashes  and  pens  used  for  drawing  the  contour  plots 

hBrash(0] «  CretfeSolidBrush  (RGB(25S,0.0)); 
h&ash(lj  •>  CrcateSolidBrush  (RGB(2SS^SS,0)); 
ffinishf2i  *  CreateSoiidBrush  (RGEI(045S,0)); 
hBrashfS]  -  CreateSoUdBrush  ^GB(0^^SS)); 
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liBntth(4]  -  CfcateSolidBnish  (RGB(0.0^5)); 
liBnisli(5i  -  CretteSoUdBiush  (RGB(25S.0^S)); 

hFta[0]  -  CieatePtn  (PS  SCXJD,  1.  RGB(25S.0.0)); 
liPeii(l]  -  Cmad>«i  (PS  SCXJD.  1.  RGB(25S.255.0)); 
hPti421  -  CieatcPta  (PS  SCXJD.  1.  RGB(0.2SS.0)); 
liPtii(3]  -  CiealcFtn  (PS  SCXJD.  1.  RGB(0.22S.2SS)); 
hPfiiiK]  -  Cn^ttPta  (PS  SCXJD.  1.  RCjB(0.0.2S5)); 
liPeiilS]  -  Cieattftn  (PS.SCXJD.  1.  RGB(2SS.0.255)); 

//get  a  handle  to  the  device  defiuilt  foot 

hFont  -  C3etSto<*Font(DEVICE_DEFAULT_FOND; 

//detennine  the  width  of  the  display  in  pixels  and  the  height  of  the  display  in  raster  lines  and  cast  them 
//as  floats 

width  =  (float)GetDevioeCaps  (PaintDC,  HORZRES); 
height  =  (float)CjetDevioeCaps  (PaintDC.  VERTICES); 

//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
//  output  made  by  the  program  is  in  that  aspect  ratio 

if((width/height)>(4.0/3.0)) 

width  “  height*(4.0/3.0); 
else 

height  width*(3.0/4.0); 

//select  the  device  default  font  and  a  new  pen  and  brush  and  save  handles  to  the  original  font,  brush, 
//and  pen 

hOldFont  -  SelectFont(PaintDC,  hFont); 
hOldPen  =  SelectPen(PaintDC,hPen(OI); 
hOldBrush  =  SelectObject(PaintDC,liBrush{0]); 


The  plots  are  labeled  and  the  data  is  read  in  the  way  described  in  section  C.4.7. 
//print  the  title  and  the  plot  labels 

SetTextAlign(PaintDC,TA_CENTER); 

TextOut(PaintDC.(intX320*width/640.0).  (intX10*height/480.0).  UUe,  sulen(title)); 

SeiTextAlign(PaintDC,TA_LEFT); 

TextOut(PaintDC.(intX(OTigin_dts.x-«-50)*width/640.0), 

(iiitX(origin_dis.y-180)*height/480.0).  "DiscreteNO",  strlenCDiscreteVO")); 

TextOut(PaintDC,(intX(origin_den.x+50)*width/640.0), 

(intX(origin_den.y>180)*height/480.0),  "Vortex  SheetNO",  strlen("  Vortex  Sheet\0*)); 


» 


i 
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//read  ia  the  dMt  to  be  plolled 

//tanpdttfintliiie 

whik  (iiexlciiar1*13AAaextdiari~10) 
aexldMr  »  selc(^): 
aextdHtf-l; 

//scnp  die  moomI  line 

while  (nextdiarl«13AAnexldiarl-10) 
nextcher-setcCpIot); 
nexldier  *"1; 

//extnct  the  nttoriier  of  poiitt8_per_line  and  the  numbo' of  lines 

//read  the  third  line,  looking  for  the  first  equal  sign 

while  (nextchart><l) 

nextchar  »  getc(plot); 
nextchar  -1; 

//continue  reading  the  third  line,  looking  for  the  first  second  equal  sign 

udiile  (nextcharl^l) 

nextchar  >  getcOdot); 

//read  the  points  per  line 

ficanf(plot.*^”.&pointsjper_line); 

nextdiar^l; 

//continue  reading  the  third  line,  looking  for  the  first  second  equal  sign 

while  (nextdiar!-61) 

nextchar  «  getc(plot); 

ficaiif(plot,”Sd*,Alines); 

//scnqi  the  rest  of  line 

sdiile  (nextdiarf>13ftftnextcliart=10) 
nextchar  «•  getc(plot); 

//allocale  memory  fi)r  staring  the  points  that  describe  the  contour  plots 

points  *  (struct  D7POINT  *  )  malloc((lines*points_j)er_line)*sizeof  (struct  D7POINT)); 
//read  the  point  data 

for  (W);  i<lines;  i++)  { 

fi)r(iH);j<points_per_tine;j++)  { 
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The  first  data  value  on  each  data  line  of  the  file  is  discarded  by  reading  it  into  the 
dummy  variaUe.  Note  that  only  five  values  are  provided  on  each  line  instead  of  the  seven 
provided  in  the  data  files  described  previously.  The  maximum  and  minimum  values  of 
drculation  fix  the  ^screte  and  denaty  pk^  are  calculated  during  the  data  read'mg 
process. 

//read  the  index  into  dummy,  read  the  radius  into  x,  the  chord  into  y,  Gdiscrete*1000  into  z,  and 
//  Gdensi^lOOO  into  r 

ficanf(plot,*%d  %f  %f  ”,  Adummy,  Apoints(i*points_per_linctj)x< 

Apoints(i*points_per_lineti|.y.  Apcdnts(i*pointsj)er_ljne4-j].z, 
Apoints(i*points_per_linetji.r); 

//find  the  max  and  min  values  ci  the  discrete  and  density  values 

max_discrete  max(points[i*pointsj9er_line4j].z,max_discrete); 

min_discrete  ~  min(points(i*points_per_line+j].z,min_discrete); 

max_density  >■  max(points(i*pointsj)er_line«-j].r.max_density); 

min_density  min(points(i*points_per_lineij].r,min_density); 

> 

} 

The  first  step  in  drawing  the  contour  plots  is  to  loop  through  the  data  points.  A 
weighted  average  circulation  strength  is  calculated  for  each  point  using  the  adjacent 
points.  The  weighted  average  is  cast  as  an  integer  index  on-the  same  scale  as  the  pens  and 
brushes  (0-6)  and  used  to  select  the  appropriate  pen  and  brush.  The  vertices  of  a  polygon 
are  calculated  using  the  coordinates  of  the  adjacent  points,  and  the  Polygon  function  is 
used  to  draw  the  polygon.  The  Polygon  function  recmves  a  handle  to  the  device  context, 
the  address  of  an  array  with  the  vertices,  and  the  number  of  points  in  the  array.  It  causes  a 
polygon  to  be  draw  with  the  pen  and  bru^  currently  selected  into  the  device  context. 

//kxip  through  the  points 

fiir(H);i<ines-l;i-i-f)  { 
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tv  (i-1;  j<poiii(ijier_ltiie-l;  j*-h)  { 


tht,  rolnr  In  p»i«t  til*.  pn>ygf««i  em  thf.  pint  ly  ralnilating 

// an  avente  of  the  vato  of  boond  diculatioii  at  tke  vefticet 

id  -  (imX3.0*(((poials(i*poiiitijwr_lina4j].zf 

poiiil8f(i+l)*poiMjwr_liiie^].z4foiiits((i+  l)*poiiits_per_Uiie^j-*- 1  ].z-»- 
poiols(i*poiinls_per_tiiie4jfl).zy4.0)-iniii_diaci^)/(iiiax_discitte-niin_discrete)); 

// aelect  the  anvopriale  bniih  and  pea 


SelectPea(PaintDC,hPen[idD; 

SekctO(9ect^!HntDC.hBniih(idD; 


//assign  values  in  screen  coorilinates  to  the  vertices  of  the  polygon 

poly(0|.x  ~  (intX(origin_dis.x+scale*pointsIi*pointsj>er_line+j).x)*width/640.0); 
poly|0].y  »  (intX(origin_dis.y-scale*points(i*points_per_iiiie+j|.y)*height/480.0); 
poly(l].x  "  (intX(ongui_dis.x-*4cale*points[i*points_per_line^j+lI.x)*width/640.0); 
poly(li-y  ~  (intX(origin_dis.y-scaie*points{i*poiot5_per_line+j-<-l|.y)*height/480.0); 
polyilj.x  »  (intX(origin_dis.x+scale*points((i-*-l)*points_per_line+j+l].x)*width/640.0); 
polyPi-y  *  (intX(origin_dis.y*«cale*points{(H-l)*points_perJijie+j+l].y)*beight/480.0); 
polypj.x  =  (intX(ongin_dis.x+scale*points((i+l)*points_perJine+j].x)*width/640.0); 
polyPi-y  (intX(origin_di8.y-8cale*pointsf(i-i-l)*points_per_line^j].y)*height/480.0); 
poly(4j.x  ~  (intX(origin_dis.x-fscalc*points(i*pointsj;)er_Une^].x)*widtli/640.0); 
polypj.y  =  (intX(origin_dis.y-scale*pointsIi*points_per_Unetj|iy)*bcight/480.0); 

//draw  the  polygon 

Polygon(PaintDC,poly,S); 


The  process  is  repeated  for  the  density  plot. 

//calculate  the  color  to  paint  the  polygon  on  the  density  plot  by  calculating 
//  an  average  of  the  values  of  bound  circulation  at  the  vertices 

id  =  (intX5.0*(((pointsIi*points_per_line*-j].t+points|(i+l)*points_pcr_line+jl.r+ 
points((H-l)*poiots_per_linefj+l].r+points[i*points J)erjinc+j+ll.ry4  0) 
•tnin_density)/(niax_density-min_density)); 

//  select  the  appropriate  brush  and  pen 

SelectPen(PaintDC.liPen[id]); 

SeleclObiect(PaintDC,liBrud(id]); 

//assign  xy  values  in  screen  coordirutes  to  the  vertices  of  the  polygon 

poh10].x  =  (intX(otigin_detLx-^3cale*poiiits(i*points_perJine+j].x)*width/640.0); 
poly(0j.y  » (intX(origin_den.y-scale*pointsIi*p(wts_per_line+j].y)*height/480.0); 
p(dy[l].x  ~  (iiitX(origin_den.x+scale*p(Mnts[i*points_per_line+j+l].x)*widlh/640.0); 
po^l].y  *  (intX(origin_den.y-scale*points{i*pointsj)er_liiie^j-4-l].y)*height/480.0); 
polypj.x  “  (iiMX(origin_den.x+scale*points((i+l)*points_perJinetj-i-l].xi*width/640.0); 


polyl2).y  -  (iiitX(origia_ilea.y>tcile*poiatt((H-l)*poiikts_per_liiieti'*'l]-y)*height/480.0); 
poly(3).x  -  (mt)((origia_<leiLx+Kale*iiQiiils{(i-t-l)*poiats_per_lii)e4j|.x)*width/640.0); 
poiy(3].y  >■  (iatX(origiii_dea.y-acxle*|)iMats{(H-l)*poiatsj)ef_liiie+j].y)*hetght/480.0); 
poly(4j.x  *  (iiitX(origiii_dea.x+saile*fXMiiU(i*pouits_per_lii)^j].x)*width/640.0); 
PotyKl-y  ~  (uilX(ongiii_den.y-scak*pouils|i*poi]its_per_liiifr4-j].y)*height/480.0); 

//dnw  the  potyfoo 

Polygoii(Paii>tDC.pobr.S); 


A  legend  is  drawn  by  using  the  Rectangle  function  to  draw  a  series  of  rectangles 
with  all  of  the  colors  used  in  the  plots.  The  nuudmum  and  minimum  circulation  values  for 
the  two  plots  are  drawn  to  indicate  the  scale. 

//draw  the  plot  legend 


for  (i=0;i<6;i-H-)  { 


//select  each  pen  and  bnish  in  turn 

SelectObject(PaintDC,hBnish(il); 

SelectPen(PaintDC,hPen(i]); 

//draw  a  small  rectangle  for  each  color  under  each  plot 

Rectangle  (PaintDC,(uitX(origin_dis.x+7(Hi*  10)*width/640.0), 
(iotX(ongin_dis.y<-50)*heigbt/480.0), 
(intX(oiigin_dis.x+70+(i+l)*10)*widlh/640.0), 
(intX(origin_dis.y+60)*hei^t/480.0)); 

Rectangle  (PaintDC,(intX(origin_den.x+7(H-i*  10)*width/640.0), 
(intX(origin_den.y+50)*height/480.0), 
(intX(origin_deo.x-t-70^i-»-  !)•  I0)*width/640.0). 
(intX(origin_den.y+<0)*hei^t/480.0)); 

} 

//label  the  l^end  with  the  max  and  min  values 

length  ~  sprintfl[buffer,  *%2.  If  %2.  ir,  min_discrete,  max_disciete); 

TextOut(PaintDC,  (intX(origin_dis.x-«^)*width/640.0), 

(intX(origin_dis.y+70)*lKight/480.0),  buffer,  length); 

length  =  sprintftbuffer,  *%2.1f  min_density,  max_density); 

TextOut(PaintDC,  (intX(origin_den.x+60)*width/640.0). 
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(iiilX(ori|io_deiLy«-70)*height/4SO.OX  buSo'.  length); 


< 


//select  the  origiaal  pen  beck  into  the  device  ooMext 
SdeetPen  ^aialDCbOliffea); 


« 


d 


< 
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An  axis  is  drawn  to  indicate  the  radial  and  chordwise  directions  on  the  plots. 

//define  the  axis  origia 

origin_axis.x  « (iatX30*width/640.0): 
oiigin_axis.y  (intX4d0*height/640.0); 


//label  the  axes 

length  >  sprintfibuffer,  "Radius"); 

TextOut(PaintDC,  (intX(origin_axis.x+4S)*wi(Ith/640.0), 
(intX(origin_axis.y)*height/480.0),  buffer,  length); 


length  ^ntfCbuffer.  "Chord"); 

TextOut(PaintDC,  (intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y-45)'*height/480.0),  buffer,  length); 


//draw  the  axes 

MoveTo(PaintDC,(intX(origin_axis.x+30)*width/640.0), 

(intX(origin_axis.y)*teight/480.0)); 

LineTo(PaintDC.(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y)*height/480.0)); 

LineTo(PaintDC,(intX(origin_axis.x)*width/640.0), 

(intX(origin_axis.y-30)*height/480.0)); 

//select  the  original  font  and  brush  bade  into  the  device  context 

SelectFont(PaintDC,h01dFont); 

Select0bject(PaintDC,h01dBiush); 


i 


i 


i  I 


The  font,  brushes,  and  pens  created  for  this  function  are  deleted, 
//ddete  the  fint,  brushes,  and  pens  created  for  this  function 
DeleteFont(hFont); 
fi»(i*0;i<6;i++){ 

DeleteObject(hPen(i]); 
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C4.10  The  |»aiBt_vq>  fwMtioa. 

The  paint_vq)  fiuictioa  dnws  the  fluid  velocities  at  the  blade  control  points.  The 
function  receives  a  handle  to  the  device  context,  a  point  indicating  the  origin  at  which  the 
plot  is  to  be  drawn,  and  a  pointer  to  the  FE£  structure  that  describes  the  file  used  to 
provide  the  plot  data. 

void  paint  vq)(HDC  PaintDC,  POINT  origin,  FILE  *plot) 

{ 


*declaie  variables  that  are  defined  in  the  pU.c  file  and  that  * 

*  will  be  used  in  this  function  * 

extern  float 

scale_fiictor» 

extern  struct 

D7POINT{  /•T-Dpt*/ 

float 

x.y,2,r,u,v.w; 

}D7POINT; 

*  Variable  declarations 

struct 

D7POINT  *points; 

//pointer  to  7d  point  array  used 
//  for  reading  and  storing 
//  description  of  bub 

float 

width,  height. 

//display  size  scaled  to  640/480 

XY. 

//3d  point  converted  to  screen 
//coordinates 

8cale-15.0. 

//scale  &ctor  to  fit  plot  on  screen 

velocity_sadeH>.05, 

//scale  fadoi’  for  velocity  vectcus 

axis  -  2.0; 

//scale  foctor  for  the  axis  plot 

int 

Li 

//loop  counters 

nextchar-l. 

//used  for  reading  input  file 
//  character  by  charaixer 

poittts_per_line. 

//dimensions  ot  array  of  xyz 

lines. 

//  points  describing  the  hub 

temth; 


//length  ot  text  output  strings 


buflerll20]; 


//dancter  string  for  text  output 


HFEN  hPeii(2].  hOkfftn; 


//pens  for  drawing  the  plots 


KMNT  origin.axis; 


//origin  for  drawing  the  axis  plot 


IO>(»4ThFoiit.hOldFoot; 


//fonts  for  drawing  the  text  oufout 


After  variable  declarations  are  made,  the  fimction  creates  a  blue  and  a  green  pen 
for  drawing  output  and  gets  a  handle  to  the  device  default  font.  The  size  of  the  display 
area  is  calculated.  A  scale  to  be  used  to  plot  the  data  is  calculated  based  on  user  input 


provided  with  the  PBD  Plot  Geometry  dialog  box. 


//create  a  blue  and  a  green  pen  for  drawing  the  contrd  point  grid  and  the  velocity  vectors 


hPenfO]  -  CreatePen(PS  SCMJD,  I.  RGB(0.0.2S5)); 
hPenfl]  -  CieatePen(PS_SOLn),  1.  RGB(0.128.64)); 


//get  a  handle  to  the  device  defoult  font 


hFont «  GctSto<±Font(DEVICE_DEFAULT_FONT); 


//determine  the  width  the  disiday  in  pixels  and  the  height  of  the  display  in  raster  lines  and  cast 
// them  as  floats 


width  =  (lloat)GetDeviceCaps  (PaintDC,  IK)R21ES); 
height  (float)GetDevioeCs^  (PaintDC,  VERTRES); 


//since  the  normal  display  aspect  ratio  is  4  to  3,  ensure  that  the  graphical 
// oufout  made  by  the  program  is  in  that  aq)ect  ratio 


if((width/height)>(4.(l/3.0)) 

width  =  liright*(4.0/3.0); 
dse 

height -width*(3.0/4.0); 


//select  the  device  defoult  font  and  the  blue  pen  into  the  device  context  and  save  handles  to  the  original 
font 

//andpen 


hOldFont  >>  SdectFont(PaintDC,  hFont); 


hOidPen  =  SelectPen(PaintDC,hPen(0|); 


//adjust  the  scale  foclor  by  an  amount  determined  by  the  user 


scale  »  scale_foctor  *  scale; 
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The  data  is  read  in  the  same  manner  u  descried  in  section  C.4.7  above. 


//read  in  the  dMa  to  be  plotted 

//Knp  the  Ibst  line 

while  (aextchari"13dtJtiieirtdttri«10) 
aexlchar  *  fBlc^ilot); 

Bffirtrhaf  "  1; 

//Scrap  the  Moond  line 

nddk  (iiextdnri-i3AABextcharl»10) 
nextdiar  *  pB(c(piot); 
nextchar-l; 

//extract  the  ntiirihef  of  points  j)er_line  and  the  nuntbo'  of  lines 

//read  the  thifd  line,  looking  for  the  first  equal  sign 

while  (nextcharl^l) 

nextdiar  -  gelc(plot); 
nextchar^l; 

//continue  reading  the  third  line,  looking  for  the  second  equal  sign 

ndiile  (nextdiarl^l) 

nextdiar  «  getc(plot); 

//read  the  points  per  line 

fiKaiif(plot,”Sd*,&points_per_line); 

nextchar-l; 

//contiiRie  reading  the  third  line,  looking  for  the  third  equal  sign 

while  (nextdiarl-61) 

nextdiar  -  getic(plot); 

fiKanfl[plot,'^",Alines); 

//Scrap  the  rest  of  line 

ndiile  (nextcharl«13Aftiiextcharl>10) 
nexlchar  ■>  getcOdot); 

//allocate  raemoiy  Ibr  stnring  the  points  thd  describe  the  oodrd  points  and 
// the  vdodty  vector  associated  with  each  control  point 

points  >  (strud  D7POINT  *  )  inalloc((lines*potntsj)er_line)*sizeof  (struct  D7POINT)); 
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//iMd  aad  Me  dw  poiot  dMa 


far  { 

fbr(iH>;j<pointtj»er_liiie;j++)  { 

fiauif(plot.*%f  Sf  Sf  srsf  sr%r.  Apoiiits(i*p^jier_|jineti].^ 
Apoiiils(i*poiiits_per_Iiiie^].y.  ilpoi^i*pointsjper_liii^j].z, 
ftpoints(i*pointi_per_linefii.r,  Apoiitts{i*poiiits_per_liiieti].u, 
A|K)inti(i*poiiitfjier_linc4jj.v.  Apoiiits{i*poiiits_per_lijie^].w); 

} 

) 

The  plot  is  labeled,  the  axis  origin  is  cakulated,  and  a  wiitfirame  diagram  of  the  blade  control 
poinls  is  drawn  in  the  same  manner  as  is  described  in  section  C.4.7  above. 

//Ubd  the  plot 

SelTextAlign(PaintDC,TA_CENTER); 

TextOut(PaintIX;(intX320^vidth/64^ 

(intKI0*height/480.0).  “VELOCrTY  AT  (XINTRCft-  POINTSVO“. 
strlenCVELOOTY  AT  CONTROL  POINTSVO")); 

SelTextAllgnO>aintbC,TA_LEPT); 

//define  the  axis  origin 

origin_axis.x  » (intX40*width/640.0); 
origin_axis.y  (imX4l0*height/640.0); 

// draw  wiiefiame  diagram 

for  (i"0;  i<lines;  i++)  { 

rotation_ptoiection(points(i*points_per_line].x,  pointsii*points_per_line].y. 
points(i*points_per_line].z,  AX.  AY); 

MoveTo(FaintDC,(intX(origin.x4scaie*(X))*width/640.0). 

0iitX(origin.y-8cale*(Y))*height/480.0)); 


far  0“1;  j<^nints_per_line;  yH-){ 

rotation_jingectionQ)oints(i*points_per_linetil.x.  pointsIi*points_per_iine+j).y. 
points(i*points_per_linetj].z.  AX.  AY); 

LineTo(PeintDC.(intX(origin.x+scale*(X)}*width/640.0). 

(intX(origin.y-scale*(Y))*hei|^480.0)); 

> 


i 
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te  j<^Miali_per_ltae;|4-«>)  { 

w««iioajiwjjcctioiiOpo<ia^|.x^  poiiiti(|].y. 
po^ttUlA  *X  AY); 

MoveTo(PaiiillX;(iBtX(orifia.x4«ade^ 

(iiitX(ori(iay«ide*(Y))*lietilit/4«0.0)); 

for  (l-l;  KUm;  i++)  { 

fotttioojNPqiectMii(pouMi(i*poiittj>e^^ 

poiitts(i*poiatt_per_liiie4j].y, 

pouits(i*po*n^_Pcr_ltiietj].z.  AX,  AY); 

LmeTo(PiiiitDC,(iiitX(origiiLx+scaIe*(X))*width/640.0), 

(iiitX(origin.y-ccaIe*(Y))*hei^t/480.0)); 

} 

> 

//select  the  green  pen  and  drew  the  velodties 
SelectPen(PaintDC,  hPenfl]); 


After  the  green  pen  is  selected,  the  vdodty  vectors  are  drawn.  The  vectors  are 
drawn  with  the  tails  at  the  control  points.  They  are  drawn  using  the  LineTo  function  to 
point  ^^laced  from  the  control  points  by  the  velocity  components  scaled  by  a  velocity 
scale  fiutor.  The  rotation_projection  function  is  used  to  convert  the  three  dimensional 
points  to  two  dimensionsal  points  for  plotting  on  the  monitor  or  printer, 
for  (i-0;  i<lines;  i++)  { 

for  (i^;  j^poiots_per_liiie;yt-HX 

ratatkmj)rqiectkHi(points(i*p(Miits_per_Iiiie4j].x, 

poiids(i*poiiits_per_liiiefi].y, 

points(i*poiiits_per_liaet}l.z.  AX,  AY); 

MoveTo(PaiiilDC,(iiitX(ori^x4scaie*PO)*width/640.0), 

(iiitX(origin.y*sc8le*(Y))*heigW480.0)); 

ro(atkmj>ni9ectkMi(poiiits{i*poiinsj>er_line»j].x+ 

velocity_scale*p(^mts(i*pointsj)er_li^j|.a, 
poiiits(i*poiiitsj;Kr_liii^).y+vdocity_sc^* 
poiiits(i*pouits_per_liaetjj.v. 
poiiits(i*poiats_per_liaetij.z^velocity_scale* 
poiiils(i*iKMiitt_per_liiie4jj.w.  AX,  A^; 


I 


UMiTo(PlunaX^(iatK(origi&x^«cide*(X))^^ 

(iitfX(orifiay<nde*(Y))*hei|lN/4«0.0)); 

> 

> 


An  xyz  ixis  is  drawn,  rotated  throi^  the  same  futch,  roll  and  yaw  angles  as  the 
velocity  plot. 

/Aekct  die  origiiial  pea  into  the  device  context,  draw  and  Ubel  die  (x.y.z)  axes 
SdectPeaffaintDC,  hOldPea); 
ralatioa_j»oiection(axis  +  1.0. 0.0. 0.0.  AX.  AY); 


length  -  sprintf(biifBtf.  "x'O; 


TextOutCPaintDC.  (iiitX(origin_axis.x+X)*width/640.0). 

(iiitX(origin_axis.y*Y)*height/480.0).  buffer,  length); 

rotation jMojectiooCO.O.  axis  1.0. 0.0.  AX.  AY); 

length  -  sprind(bu£fer.  "y"); 

TextOutCPaintDC.  (intX(origin_axis.x+X)*width/640.0). 

(intX(origin_axis.y*Y)*height/4M.O).  buffer,  lengt’ 

rotation jMojectkmCO.0. 0.0.  axis  + 1.0.  AX.  AY); 


length  »  sprintfCbuflbr.  ”z”); 


TextOutCPaintDC.  CintXCori8ui_axis.x-i-X)*width/640.0). 

CintXCofigia_axis.y-Y)*height/480.0).  buffer,  length); 

rotation jNpfectkmCaxis.  0.0. 0.0.  AX.  AY); 

MoveToCPBintDC,CintXCofigin_axis.x+X)*widdi/640.0). 

CintXC<iri8ui_axis.y-Y)*heigln/480.0)); 

LineToCPuntDC.OntXCorigu>  axu.x)*width/'640.0). 
CiiitXCorigin_axis.y)*height/480.0)); 

rotadonjMqiectiooCO.O.  axis.  0.0,  AX.  AY); 

LiiieToCPuntDC,CintXCorigin_axis.x+X)*width/640.0), 

0ntXCo(^...axis.y-'O*heightC480.0)X 

rotadonjjirqjectionCO.0. 0.0,  axis,  AX,  AY); 

MoveToCPiintDC,CintXCorigin  axis.x+X)*width/640.0), 
CintXCorigin.axis.y-Y)*hetght/480.0)); 
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UMTo(PiyBaX^(iBtX(ori|iii  ixit.x)«widUi«40.0). 

(iBtX(orifiB_Mis.y)*heig|it/4SO.O)); 

/^ekct  te  origiaal  iM  back  into  the  device  ooolext 

SdeGff<»t(Paiiitl)C.liOkFoat): 

The  pens  and  font  created  for  this  function  are  deleted  and  the  allocated 

memory  is  freed  usii^  the  free  function. 

//ddeto  toe  peas  and  fsat  creeled  fbr  thit  liincliQe 

DdetoObjectfliPenfO]); 

DeletoOli9ect(liPen(l]); 

Dektd'ootOiFoia); 

//free  the  allocated  memoiy 

fitee(  points  ); 

> 

C.4.11  The  paint_cmv  function. 

The  piunt_cmv  function  draws  a  plot  of  circumferential  mean  blade  velocity  plot  to 

the  passed  screen  or  the  printer.  The  function  receives  a  handle  to  the  device  context,  an 

origin  for  the  plot,  and  a  pointer  to  the  FILE  structure  containing  the  data.  The  function 

works  in  the  same  way  as  the  paint_vcp  function  except  that  a  wireframe  is  not  drawn. 

void  paint  cniv(HDC  PalntDC,  POINT  origin,  FILE  *plot) 

{ 


*dedare  variables  that  are  defined  in  the  |dl.c  file  and  tbtf  * 

*  will  be  used  in  this  fimctkm  * 

extern 

float 

scak.fiKtor, 

extore 

struct 

D7POINT{ 

float 

x,yAr,u,v.w; 

>******4 

IDTPOIOT; 

stract 

DTPOiNT  point; 

//pointer  to  7d  point  array  used 
//  for  reading  and  storing 
//description  of  hub 

IhMt 

wMtik,  height. 

//display  size  scaled  to  640/480 

XY. 

//3d  point  converted  to  screen 
//coordinates 

acale-15.0. 

//scale  Ihctor  to  fit  plot  on  screen 

vdocity_acalcp0.2. 

//scale  ftctor  for  vdocity  vectms 

axis  -  2.0; 

//scale  fiKtor  for  the  axis  plot 

int 

H). 

//loop  counters 

nexlchar-1. 

//used  for  reading  input  file 
//  character  by  chara^r 

num_points. 

//total  number  of  points  to  plot 

length; 

//length  of  text  output  strings 

diar 

buflhr(120]. 

//character  string  for  text  output 

thleO- 

//plot  title 

"CIRCUMFERENTIAL  MEAN  BLADE  VEUXITYVO"; 

HPEN 

hPen,  hOldPen; 

//pens  for  drawing  the  plots 

PCNNT  origin_axis. 

//origin  for  drawing  the  axis  plot 

plot_point(2]; 

//array  of  points  for  plotting  the 
//  velocity  vectors 

HFONT  hFont.  hOidFont; 

//fonts  for  drawing  the  text  output 

//create  a  green  pen  fi)r  drawing  the  velocity  vectors 

hPen  -  Createl>en(PS_S(XJD.  1.  RGB(0, 128.64)); 

//get  a  handle  to  the  device  definiit  font 

hFont  -  GetStodcFoin(DEVICE_DEFAULT_FONT); 

//deternune  the  width  of  the  dispfaty  in  pixeb  and  the  height  of  the  displ^ 
// in  raster  lines  and  cast  them  at  floats 

width  -  (float)GetDevioeCaps  (PaintDC,  HORZRES); 
height  -  (iloat)GetDevioeC4M  (PaintDC,  VERTRES); 

//since  the  normal  display  aspect  ratio  is  4  to  3.  ensure  that  the  graphical 
// output  made  by  the  program  is  in  that  aspect  ratio 

il((width/height)>(4.0/3.0)) 

width  «height*(4.0/3.0); 
ebe 

height -width*(3.0/4.0); 
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//Meet  te  dB¥io8  drfhidt  tal  and  tke  PM  iaio  the  device  oooietf  and 
// MM  laadta  10  the  orifiail  ftMt  and  pea 

hOUPoat-  Sdecffdot^iialDC.  hFoot); 

hOldPea  SelectFea9iudDC,liPeB); 

//UUlMt  the  scale  ftClOf  hy  on  ly  th*  ugcr 

scab  *  ffetnr  * 

//diaw  tte  title  to  the  device  ooMext 

SelTextAlignCPaintDC,TA_CENTER); 

TextOin(PaintIX;,(iittK320*ividih/640.0).  (intX10*hdgbl/4hO.O).tiUe.  strlen(tiUe)); 

SelTextAligii(PaiiitDC,TA_L£FT); 

//read  in  the  data  to  be  plotted 

//scrap  the  first  line 

while  (nextdiarl»13A&iiexlcharl>10) 
nextdiar  -  getc(plot); 
nextchar>  1; 

//scrq>  the  second  line 

while  (nextchar!’'13AAnextcharf«10) 
nextchar  =  gelc(plot); 
nextdiar»l; 

//extract  the  total  number  of  points 

//read  the  third  line,  looking  for  the  first  equal  sign 

while  (nextcharl>61) 

nextdiar  >>  gelo(plot); 
nextchar -1; 

//ooidinne  reading  the  third  line,  looking  for  the  second  equal  sign 

while  (nexlcharl-61) 

nextdiar  -  gelc(plot); 

//read  the  mnnber  of  points 

fiamd[plot,"Sd*,AnumjN)ints); 

nextchar-I; 

//scrap  the  rest  of  line 
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wUk  (■Brtctari-mAawldMri-IO) 

BBxidMr  *  |olc(plot); 

//tMd  aad  plot  tlM  veloG^  vector  (tan.  one  ifata  point  at  a  tiaie 
//loop  duoat^  idl  of  tin  data  points 

ftir(i-0;  Knum  jwintr,  i++)  {  ^ 

//read  dK  data  into  a  7d  point 

fican((plot,*Hf  Sf  Kf  Sf  Sf  %f  *.  Apointx.  Apoiin.y,  Apointz,  ApoinLu,  Apoiiu.v,  Apointw); 

//calculate  the  screen  coordinates  ofthe  root  ofthevelodly  vector 

rotationjpniiection^winLx,  pointy,  pc^z,  AX,  AY); 

//assign  the  X  and  Y  screen  coordinates  to  the  first  point  cS  the  plot  jwint  array 

plotj)oint|0].x  ~  (intX(origin.x>scale*(X))*width/640.0); 
piotjx>uit[0].y  » (int)((origin.y-sc8le*(Y))*height/480.0); 

//calculate  the  screen  coordinates  of  the  tip  of  the  velocity  vector 

ro(atiooj)r(gectioii(poinLx+velocity_scale*poinLu.  pointy+velocity_sca]e*point.v, 
pointz^veIoctty_scale*pointw.  AX,  AY); 

//assign  the  X  and  Y  screen  coordinates  to  the  first  point  of  the  plotjtoint  arnQr 

ploljXMnt(]).x  *  (intX(o*ifiiO'X-HKale*PO)*wklth/640.0); 
plot_point(l  j.y  « (intX(origin.y-scale*(Y))*height/480.0); 

//plot  the  vector  as  a  polyline 

PolyIine(PaintDC.plot_point2); 

> 

//sdect  the  origiiud  pen  iiMo  the  device  context  draw  and  tabd  the  (x,y,z)  axes 

SelectPen(PaintDC.  hOldPen); 

//define  the  axis  origin 

origin_axis.x  *  (intX4d*width/640.0); 
ofigin_axis.y  ~  (intX410*hetght/640.0); 

ro(ation_pn)iection(axis  1.0, 0.0, 0.0,  AX,  AY); 

length  »  sprintfl^wfitar,  *x”); 

TextOut(PaintDC,  (intX(origin_axis.x+X)*width/640.0), 

(intX(origin_axis.y-Y)*height/480.0),  buffer,  length); 


» 


» 


»  • 


i 


» 


» 
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rattlioa j«||eclkM(P.O.  axis  1.0, 0.0,  AX,  AY); 

kaglh  "  qMialfl[buflbr.  V)> 

TexiOaKPliiaax;  (iii(X(citigia_axis.x4^X)«widtb«40.0X 

(iatK(orifia_a]^y-Y)*bei^it/400.0),  boCAr.  length); 

ra(atioajinj«ctiaii(p.0, 0.0,  axis  -t- 1.0,  AX  AY); 

leagih  -  qiiiBtf(bulfer,  *z*); 

TexlOui^aiatDC,  (iiMX(originjKi<x+X)*width/640.0), 

(intX(ofi^_axis.y*Y)*height/4g0.0),  buffer,  loigth); 

ralatioajNtqiectioaCaxis,  0.0, 0.0,  AX  AY); 

KfovcTo(PaiBtDC,(intX(origi]i_axis.x-«-X*wklth/640.0), 

(uitX(origiii_axis.y-Y)*heiglit/480.0)); 

LiiieTo(PaintDC(uitX(ong>>t_axi8.x)*width/640.0), 

(iiitX(origiii_axis.y)*beight/480.0)); 

ratatkmjwtyectioiKO.O.  axis,  0.0,  AX  AY); 

LiiieTo(PaiatDC,(iiitX(origiii_axis.x+X*width/640.0), 

(iiitX(origiii_axis.y-'^*height/480.0)); 

rotatioajirqiectioiXO.0, 0.0,  axis,  AX  AY); 

MdveTo(PaiiitDC.(iiitX(origui_axis.x^X)*wi<hh/640.0), 

(iiitX(origin_axis.y*Y)*height/480.0)); 

LiiieTo(PaincDC,(iiitX(<>ng>ii_*xi5-x)*wkbh/640.0). 

(iiitX(origin_axis.y)*height/480.0)); 

//sdect  the  original  fimt  bade  into  the  device  context 

SelectFoot(PaintDC,hOldFont); 

//ddete  the  pen  and  fom  created  for  this  function 

DdeleOI|iect(hPen); 

DdefeFonXhFont); 

) 

C.4.12  The  pafait.rdc  functioii. 

The  paiitt.nlc  function  draws  a  plot  (rfdreulatioa  vs.  radial  position  using  data  from  a 
PnX>UT.RDC  or  FBDOUT.SGR  file.  The  function  receives  a  handle  to  the  device  context  and  a  pointer 
to  the  FILE  structure  that  contains  infonnatira  aboin  the  data  file. 


* 


voUpdat  idcCHDCPrinDC.  FILE  •plot) 

{ 


*  VarUUBdBdiralioM 


cter 

bafferflM). 

//duuacter  string  for  text  output 

titlofSll; 

//title  of  the  plot 

lot 

W). 

//kx)p  counter 

numjioiitft. 

//W  of  points  to  be  plotted 

deciflul_plaoes  *  2, 

//indiator  of  decimal  places 
//  to  print  in  y-axis  labds 

nextcfaar*i. 

//used  Ibr  reading  input  file 
//  character  by  character 

shift-3. 

//hunter  of  pixels  to  shift 
//y-axis  labds 

lenpth. 

//length  oi  text  ouqnit  strings 

del  x-30. 

//x  and  y  spadng  for  graph  in 

del_y-20; 

//pixels 

fkMt 

width,  height. 

//disph^  size  scaled  to  640/480 

delta.G. 

//di^rence  between  max  and  min 
//G 

inax_G--100.0. 

iiiiii_G-100.0. 

//max  and  min  circulation 

niax_r-0.0; 

//max  radius 

float 

•r. 

//pointers  to  float  arrays  for 

•G; 

//  radius  and  circulation 

declare  structure  variables 

• 

HFEN 

hPlotPen, 

hThickPea. 

hThinPen. 

hCMdPeii; 

//pens  for  drawing  the  gr^h 

HFONThFoitt. 

//foots  for  drawing  the  text 

hSmallFoitt. 

hOUFont; 

//autpai 

LOC^C^IFont; 

/nopal  font  structure  for 

//  creating  fonts 

HBRUSH  hBrush. 

//brushes  for  drawing  the  graph 

hOldBnish; 

P(MNT  origiii-{  170.300}; 

//(Higin  of  the  plot  in  screen 

// ooofdinates 


POINT  *poiat; 


/^XMBter  to  an  array  d  points 


z******************************************************************** 

*  rtfSiriHlnii tiMi iItii nf thn ifcnirr mnttiTrt tir trr irrinm tir  this* 

*  tfiaaradwftaiictiM  to  be  device  indqKiideiit  * 


The  fiin^ion  creates  a  bhie  pen  for  drawing  circulation  versus  radial  position,  a 
thin  Mack  pen  for  drawing  horizontal  and  vertical  grid  lines,  and  a  thick  black  pen  for 
drawing  a  frame  around  the  plot.  The  function  also  creates  a  hoUow  bnish,  and  small  and 
normal  sized  fonts.  The  display  ^  is  calculated. 

//create  a  blue  pea  {dotting  G  vs.  r  and  a  thin  and  a  thidc  blade  pen  for  drawing  the  graph  axes 

hPlotPtn  -  CreatePen(PS_S(XJD.  1.  RGB(0.0.255)); 
hThidePen  CreatePen(PS_SCXJD,  2,  RGB(0,0.0)); 
hThinPen  CreatePen(PS_SCR.ID,  1,  RGB(0,0,0)); 

//create  a  hollow  brush 

hBnish  -  GetStoddBnish(H(XIX)W_BRUSH); 

//get  a  handle  to  the  device  defiuilt  font 

hFoat  -  GetStockFont(DEVICE_DEFAULT_FOND; 

//fill  a  logical  font  structure  using  the  device  defoult  font 
GetObiect(hFont,size(rf(LOGFONT),&lFont); 

//adjust  the  font  size  and  create  a  small  font  for  labeling  the  axes 
IFontUHeight  ~  >10; 

hSmallFont  >■  CreateFontIndirect(AlFont); 

//select  the  hollow  brush,  defiuilt  fimt,  and  thick  blade  pen  into  the  device 
//  context  and  save  handles  to  the  original  brush,  font,  and  pen 

hCNdBrush  «  SelectOlyectCPaintDC,  hBrush); 

MXdFont  SdectFont0*aintDC,  hFont); 

hOMPen  -  SetoctPen(PaintDC,  hThidePen); 

//detmnine  the  wiihh  ot  the  diqday  in  pixels  and  the  height  of  the  display 
// in  taster  lines  and  cast  them  as  floats 

width  -  (fioat)GetDevioeCaps  (PaintDC,  IK>RZRES); 


-  (lloit)GeiDevioeCapt  (PaintDC,  VERTRES); 

//ftiooe  the  mnnal  diqibqr  aspect  ratio  is  4  to  3.  ensure  that  the  graphical 
// output  BMde  hy  the  pragnon  is  in  that  aspect  ratio 

if((width/liei^)>(4.(V3.0)) 

width  hdght*(4.0i/3.0); 
else 

height -widlh*(3.(V4.0); 

The  first  line  of  the  data  file  is  read  character  by  character  in  order  to  locate  and  read  the  plot 

title. 

//read  in  the  data  to  be  plotted 

//read  the  first  line  and  find  the  title 

while  (nextchar!>'13AAnextcharl*10ftAnextcharl>*34) 
nextchar  «  getc(plot); 
nextchar  >  getc(plot); 

while  (nextcharl^34)  { 

title[i]=nextchar, 

i++; 

nextchar  «  getc(plot); 

> 

titlelil=%0'; 

//scrap  the  rest  of  the  first  line 

ndiile  (nextcharl»13A&nextchar!»10) 
nextchar  ==  getc(pIot); 
nextchar  =1; 


The  second  line  of  the  data  file  is  discarded  and  the  third  line  is  read  character  by 

character  to  find  the  number  of  data  points  in  the  file. 

//sc^^>  the  second  line 

udtile  (nextcharl^^n&Anextchart^lO) 
nextchar  -  getcO>lot); 
nextchar  °>1; 

//extract  the  nundier  of  points 

//read  the  third  line,  looking  for  the  equal  sign 

while  (nextcharl=61) 

nextchar  »  getc(plot); 
nextchar  >>1; 
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//ooatiiine  laM&ng  the  third  line,  looking  for  the  second  equal  sign 


while  (nextcharl*61) 

nextchar  «  gelc(plot); 

//read  die  noeaher  of  points 

ficanfl(plot.*%d",Anuffl_points); 

nextchar-1; 

//scnq>  the  rest  of  line 

while  (nextcharl>13AfbiexlcharK10) 
nextchar  -  getcO>lot); 

Memory  is  allocated  for  the  radius  and  circulation  data  and  for  an  array  of  POINT 
structures  that  will  be  used  to  plot  the  graph. 

//allocate  memory  for  the  radius,  circulation,  and  point  vectors 
r  >>  (float  *  )  maUoc((num_points)*sizeof  (float)); 

G  ^  (float  * )  malloc((num_points)*sizeof  (float)); 
point  ■  ( POINT  • )  malloc((num_points)*sizeof  (  POINT)); 

The  data  is  read  using  a  for  loop.  The  maximum  values  of  circulation  and  radius 

and  the  minimum  value  of  circulation  are  determined  using  the  same  for  loop 

//read  the  point  data  and  chedr  for  the  maximum  and  minimum  values  of  G  and  the  maximum  value  of  r 

(i=0;  i<immj»ints;  i++)  ( 

&canf(plot.**/«f  %f  *,  &r(i],  &G(i]); 
max_G  >>  max(max_G,G[i]); 
min_G  miiKmin_G,G(i]); 
max  r>max(max  r,r(ii); 

} 

The  gia|di  and  the  hmiztmtal  and  vertical  axes  are  labeled.  A  firame  is  drawn  around  the  graph 
with  the  thidc  pen  using  the  Rectangle  fiinctkm. 

//{priitt  the  title  and  label  the  grqrh 

SelTextAligii(PaintDC,TA_CENTER); 

TextOut(PaintDC,(intK320*width/640.0),  (intX10*bdght/480.0),title,  strlen(title)); 
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Sen'extAligii(PiinlIX:.TA_lJEFT); 

TextOiil(PaiiitIX:.(iiitX(ori(iiLx+l()*dd_x+30)^v^ 

(iiitK(ori(i>>-y)*height/480.0),''rAV0”.strieii(*r/RV0*)); 

T«itOut(PaiiitDCXiiitX(origi&x-^)*widtli/640.^^^ 

(iiitX(orisiii.y-6*(kl_y)*hdght/480.0).''GV0*.  strlenCCy)”)); 

//dnw  the  outline  of  the  fnph 

Rectaiigle(PaiitfDC,  (iiitX(origin.x)*wuith/640.0),  (iiitX(origin.y)*height/480.0). 

(iiitX(origtiLx-fl0*del_x)*widlh/640.0X  (iiitX(origiii.y-]0*dd_y)*beight/480.0)); 

The  horizontal  and  vertical  grid  lines  are  drawn  using  a  for  loop  and  a  series  of 
Rectangle  function  calls. 

//select  the  thin  pen  and  draw  the  horizontal  and  vertical  lines  on  the  graph  as  a  series  of  rectangles 
SelectPen(PaintDC,hThinPen); 
fijr(i*l;i<10;i-*^)  { 

Rectang]e(PaintDC,  (intX(origin.x)*width/640.0),  (intX(origin.y)*height/480.0), 
(intX(origin.x+i*del  x)*width/640.0),  (intX(origin.y- 

10*del_y)*height/480.0)); 

Rectangle(PaiatDC, 

(intX(origin.x)*width/640.0),  (intX(origin.y)*height/480.0), 
(intX(origin.x+10*del_x)*width/640.0X  (intX(origin.y> 

i*del_y)*hcight/480.0)); 

} 

The  X  axis  is  labeled  using  the  small  font.  The  maximum  and  minimum  values  for 
the  gnqjh  are  calculated  and  adjusted.  The  number  of  decimal  places  to  be  used  in  the  y 
axis  labels  is  then  determined. 

//s^ct  the  small  font  and  label  the  x<axis  of  the  plot 
SelectFont(PaintDC,  hSmallFont); 
for(i-0;i<ll;i++){ 

length  =  sprintf(buffer,  ”%2.ir,(i*niax_r)/10.0); 

TextOut(PaintDC,  (intX(origin,x-5+i*deI_x)*width/640.0), 
(intX(origin.y+10)*height/480.0X  buffer,  length); 

} 
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//if  die  I— ximm  vihw  is  graMer  dm  mo.  use  logi  to  csiabliih  the  maximum  value  as  a  round  nuntber 
//sUfhdy  higher  dm  dm  maximum  value,  odmiwiae  set  dm  BMorimum  value  to  0.0 

if(max_G  >-  del) 

max  G  "  pow(10.0Jloor(lQglO(max  G)))* 

(l.(Mlooi(max_G/(poiK10.0.{loof(logl0(nm_G)))))); 

dse  illmax_G  <«  -del) 
nmx_G  ■  0.0; 

ins  dm  minimum  value  is  less  dm  zero,  use  logs  to  establish  the  minimum  value  as  a  round  number 
//  slightly  lower  than  the  minimum  value,  otherwise  set  the  minimum  value  to  0.0 

if(min_G  <*•  -del) 

min_G  ■  -(pow(10.0.floor(loglO(fabs(min_G))))* 

(1.0+fl<x)r(&b6(min_G)/(pow(l0.041oor(logl0(fabs(min_G)))))))); 

dse  if(min_G  >“  0) 

min_G  >=  0.0; 

//if  dm  maximum  and  minimum  values  are  very  dose  together,  spread  them  apart  slightly 
if(nttx_G  •  iiiin_G<dd) 

{  max_G»max_G  +  0.1; 

il((min_G  -  0. 1)>  0.0) 

inin_G  =  inin_G  -  0.1; 

> 

//find  the  difference  between  the  maximum  and  minimum  values 
ddta_G  ”  max_G  -  inin_G; 
ifi[fidM(max_G)>dd) 

dedmaljrtaoes  -  min(floor(loglO(fidis(max_G))),decinialj>laoes); 
ifi[£dM(mio_G)>dd) 

decimal_plaoes  *  min(floor(lQglO(£ri)8(min_C9)),decimal_places); 

//labd  dm  y-axis  based  on  the  value  of  the  decimaljilaces  indKatOT 

switdi(decimalj>laces){ 

case  2: 

{ 
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ieatfh  •  ipriMKbuflbr.  *Sir.(iatXaHw_G<(t*ieitti_GyiO.O))); 

TexiOiil(PaiotDC,(intX(orifia.x-t'  liift*4^)*width/640.0), 

(intX(orifiii.y-3-Ki>lO)*(ld jr)*lieiglit/4S0.0).  buffer,  length); 

> 


break;) 


care  1: 

{ 

foi(i-0;i<ll;i++){ 

length  ■  sprintfl^aifler,  ”%S.0r.nuK_G-((i*ddta_G)/10.0)); 

TextOut(PaintDC,(uitX(origin.x-t- 

shift*3-40)*width/640.0). 

(iittX(origin.y-3-Ki*10)*del_y)*height/480.0),  buffer,  length); 

} 


break;} 

caseO: 

{ 

f<H(i*0;i<ll;i++){ 

length  »  sprintfQwffier,  •%5.ir,niax_G-((i*<fel<a_G)/10.0)); 

TextOut(PaintDC,(intX(origin.x+shift*3-40)*width/640.0), 

(intX(origin.y-3+(«-10)*del_y)*heigh^480.0),  buffer,  length); 

} 


break;} 

case*l: 

{ 

foi(i=0;i<ll;i-H-){ 

length  -  q)riitff(bufifer,  *%S.2r,niax_G-((i*delta_G)/10.0)); 

TextOut(PaiitfDC,(intX(origin.x-4«htft*2-40)*widd>/640.0), 

(intX(origin.y-3-Ki>10)*del_y)*hdgl^480.0),  buffer,  length); 

} 


break;} 

care  >2: 

{ 

fcr(i-0;i<ll;i++){ 

length  « ipriiaf(buflfer,  ”%S.3r,niax_G<(i*<felta_G)/10.0)); 


TexiO«l(niaa)C.(iMX(oritiiLx+<iiift*l^ 

(iittX(<»ifiB-y3-Ki-iO)*dei _y)*heifM/4t0.0).  taflsr.  length); 

) 


bfwk;} 

detadi: 

{ 


le^  -  igfmtflbiilfcr.  "SS.4r.iiMx_G-((i*dettn_G)/10.0)); 

TextOnl(PiiBa)C,(iiiX(()ngta-x-40)*wk)lh/640.0X 

(intX(origin.y-3-K>*10)*<kl_y)*lieig|it/4gO.O),  buffer,  length); 

) 


brenk;} 


> 


The  blue  pen  is  sdected  and  the  screen  coordinates  of  the  points  to  be  plotted  are 
then  calculated  and  stored  in  the  point  array.  A  circle  is  drawn  at  each  point. 

//select  the  blue  pen  for  plotting  the  curve 
SelectIfen(PaiiitDC,  hPlotPen); 

//calculate  the  screen  coordinates  corresponding  to  each  point  (r.G),  store 
//  the  values  in  pouit(i].  and  draw  an  ellipse  there 

foi(H);i<nuni_points;H-t’){ 

point(i].x  ■  (iinX(®rigin.x+(r(il/nH«_r)*10*del_x)*width/640.0); 
pointlij.y  ■  (intX(origiii.y-((Glil-min_G)/delta_G)*10*del_y)*lidght/480.0); 

Ellipee(PaintDC,  point[i].x>2,  point(i].y-2,  point|i].x-i-2,  point(i].yt-2); 

} 

A  curve  is  drawn  throu^  the  points  using  the  Polyline  function.  The  original  pen, 
font,  and  brush  are  then  sdected  back  into  the  device  context  and  the  pens,  font,  and  brush 
created  for  this  fimction  are  ddeted.  The  memory  allocated  for  data  storage  is  then  freed 
uai%  the  free  fiinction. 

//jplot  the  curve  by  drawing  a  polyline  through  the  pnnts 
Polyiine^aiiitDC^point,nuin_pmnts); 
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//Mtoct  tiw  origiaal  pea.  fcols,  and  bcuih  back  into  the  device  context 

SdeciPenCPaiaiDC,  hOUPea); 

Sde(tfoet(Paiaa>CJiC)ldFoBt); 

SdeclOlgec^PaiatDChOldBniih); 

//ddele  the  peat,  bniah.  and  finds  aeated  for  this  function 

DeieteOlgect(hPlotPea); 

OekteOtjectChThiaPea); 

DeieieOItjectOiTliicfcPea); 

DekteObjectOiBiush); 

DdeleFontOd'oid); 

Deletd’'ont^nialffoid); 

//fiee  the  allocated  memoiy 

fiee(point); 

firee(r); 

fiee(G); 

} 

C.4.13  The  write_output_filc  function. 

The  write_output_file  function  writes  an  output  file  that  contains  all  of  the  PLL 

text  data  available  in  the  Output  Viewer  window.  The  function  receives  the  handle  to  the 

output  file  selected  by  the  user. 

void  write  ou4Nit_file(HFILE  out) 

{ 

*  VariaUe  dedaratkms  * 


dnr 

*  buffer. 

//pointer  to  a  character  buffer 

int 

numjbytes; 

//number  (d’bytes  read  by  Jiead 

HFILE 

in; 

//pointer  to  a  file 

The  writejoutput_file  uses  the  malloc  function  to  allocate  a  storage  buffer  that  is 
used  for  reading  the  data  files  and  writing  the  data  into  the  combined  output  file. 

//allocate  memoiy  tot  reading  the  files  into 

buffer  ■■  (char  *)  malloc((max_buf_sz)*stze(d'  (char)); 


« 

€ 

€ 
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The  fiuictkMi  tests  for  the  existence  of  esch  possible  output  file  using  the  access 

function.  Eadi  file  that  is  fiMind  to  exist  is  opened  with  read  access  using  the  Jopen 

fiin^ion,  is  read  with  the  _lread  function,  is  written  to  the  output  file  usii^  the  Jwrite 

fiinctkm,  and  is  closed  using  the  _lclose  function. 

/^ead.  and  write  lo  the  overall  oinput  file,  each  available  output  file 

if  (aooeaa(*suiiiiiiaiy.out*,  0)  0)  { 

is  -  .lop^sunuiiafy.out",  READ); 
nuajbytea-  _liead(iii.  buffo,  niax_buf_sz); 

_lwrite(out,  buffo,  numjbytes); 

IkloaeCin);  ~  } 

if(aooessCdetaill.out*,0)  — 0)  { 
in  -  _lop^*detaill.out”,  READ); 
numjbsftea-  _lread(ui,  buffo,  nttx_buf_sz); 

_)write(out,  buffo,  numjbytes); 

_lcloee(in);  ) 

if(aooessCdetail2.out",0)»-0)  { 
in  ~  .lopenCdetaill.out",  READ); 
numjbytes-  _Ifead(in.  buffo,  maxjbuf_sz); 

_lwrite(out,  buffo,  num.bytes); 

2lcloae(in);  “  } 

if  (aooessCfods.out",  0)  —  0)  { 
in  -  _lQpen(*fiuds.out",  READ); 
numjbytes-  _lfcad(in,  buffo,  maxjbuf.sz); 

_lwrite(out,  buffo,  numjbytes); 

_ldooe(in);  } 

if(aooessC'<hictgeo”,0)  — 0)  { 
in  -  _lopenCductgeo”,  READ); 
numjbytes  _liead(in.  buffo,  max_buf_sz); 

_iwrite(out,  buffo,  numjbytes);  ■*.  - 

.Idoaefin);  " } 

if(aooessC'stresaout”,0)  — 0)  { 
in  -  _lop^stiesaout*,  READ); 
nnmjbsiea-  Jieadfin,  buffo,  maxjbuf.sz); 

_lwriie(out.  buffo,  numjbytes); 

.IdoseOn);  > 

if(aooesBCnoiiaxi.dr*.0)— 0)  ( 
in  -  _lop^nooaxi.cir*,  READ); 
numjbytes^  _liead(in,  buffo,  maxjbuf.sz); 

_lwrite(out,  buffo,  numjbytes); 

.IdoseCm);  } 


if  (aooessCnonaxi Jir”,  0)  —  0)  { 
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ia  JapatCaoMxLbr*.  READ); 

■Mijbgfier>  _Inad(ia,  tafler,  ■mjNif.B); 

_iwite(oii(,  biAr.  HB.liylei); 

'idoMCia);  ) 

if(aooeiiCaoiiaxi.^*.0)  — 0)  { 
ia  ••  _lo|i^aoaaxLcmp*,  READ); 
aanJbyW*  .boKKia.  buffer,  aiaxjbuf.sz); 

_twrilB(out.  buffer,  aumjbyta); 

.IdoieOn);  } 

if  (aooaa(*BOiiaxi.har”,  0)  —  0)  { 
ia  »  _h)p^uoBa».har*,  READ); 
auai_b9ief*_lfead(ia,  bidfer,  Biax_buf_sz); 

_hvrile(out,  buffer,  aumjbytet); 

_lclQ«(in);  ) 

> 

C.4.14  The  writc_pbd_files  functioii. 

The  write_pbd_files  function  nukes  copies  of  the  existing  PBD  output  files  using 
the  (Mitput  file  root  specified  in  the  PBD  Settings  dialog  box.  The  function  receives  no 
arguments. 

void  write_pbd  files(void) 

{ 

/**00*t«*************************t*******************************0*** 

*  dedaie  variables  that  are  defined  in  the  pU.c  file  and  that  * 

*  will  be  used  in  this  fiinction  * 

«««*«««««*«•««««««««*«««««««*««*•«*««««*«««««««««««*«*«**«•«««•****«*/ 

extern  char  pbd_output_root[9); 

/•««•**«**««««*•*«*«. 

*  Variabie  dedaratioas 


char  destfMAXFILE  +  MAXEXT]; 

(^STRUCT  ofinuroe; 

OFSTRUCT  oldest; 

HFILE  hfiRMUCe, 
hfdest; 


***•***•*•••/ 

//destination  file  name 

//data  structure  containing 
//  information  on  the  opened  file 

//handles  to  the  source  and 
//destination  files 


The  function  tests  for  the  existence  of  eadi  possible  PBD  output  file  u»ng  the 
access  function.  A  destination  filename  is  created  for  each  file  that  is  found  to  exist  with 


» 


» 


i 


i  • 


» 


i 


i 


» 
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the  fimerge  hmctioR.  The  fiimerge  fiinctioa  receives  a  pointer  to  a  filename,  a  pomto-  to  a 
drive,  a  pomter  to  a  directory,  a  pointer  to  a  file  root  and  a  pointer  to  a  file  extension.  The 
fiinction  builds  a  filename  fipom  the  components  supplied  and  stores  it  in  the  filename  array 
passed  as  the  first  argument. 

Each  source  and  destination  file  is  then  opened  using  the  LZOpenFile  function. 

The  source  file  is  craned  directly  into  the  destination  file  using  the  LZCopy  function  and 
both  ffles  are  closed  using  the  LZClose  function. 

//if  Oe  piMloiiLi)g  fik  extm, 

if(aooesi(*pbdouLibg”.  0)  —  0)  { 

/Ahn  aeale  a  destinatioa  file  name  by  merging  the  pbd_oulput_root  name  and 
//  the  .ibg  extensioo 

fiunerge(dest,NULL,NULL,|)bd_outpitt_root.".ibg"); 

//open  the  aouroe  and  destination  files 

hfisouioe  -  LZOpenFtleCpbdoutibg*.  At^ource,  OF_READ); 
hfdest  -  LZOpenFileCdest.  Acddest,  OF.OtEA'TC); 

//copy  the  source  file  into  the  destination  file 
LZCopyfh&ouice,  hfdest); 

//dose  both  fiks 

LZCkwefhGnuioe); 

LZCIoseffaHest);  } 

//rqieat  the  process  fiir  all  possible  pbd  ou^wt  files 

if(aooesi(*pbdoutcbd*,  0)  »-0)  { 

fiimeige(destJ4l)LL,NULL,pbd_oo4wt_ioot,*.Gbd"); 
hfioiiioe-LZOpeifileCpbdoutcbd”,ftaCK)ttioe,CF  READ); 
hfilest- LZOpenFileCdest.  Aafilest,OF_C3tEATE);  ~ 

LZCjopyCfalboaioe,  hf^); 

LZaoseChIboiiree); 

LZCIoseClifilest);  } 

tfCaocemCpbdouLhab*.  0)  *-•  0)  { 

fiinieige(desU4ULL,NULL,pbd_oii4Nit_ioot.”.bub”); 
hbonfce  -  USOpeanie(*pbdOQtlitib*.  ftoftouice,  (V_READ); 


MUot  -  LZOpeaFikCdest.  AoikA  OF.CREATE); 
LZCopyOdtewce.  ydctf); 

LZCIoH(h6oiiice); 

LZOoMChileit);  } 

tf[aooeMC*pbdoaLcBv*.  0)  0)  ( 

fbiDt«SB(dest,Nini^Nl)IX.pbd_output_not.*.ciBv*); 
hfiouice  *  LZOpenFikCpbdoutciiiv*.  Ao&ouice,  OF  READ); 
hfikf*  -  lJEOpeiiFile(dest.  Aofdest, 

LZCo|iy(UkNiice,  hli^); 

LZaoM<>fioiitoe); 

LZCloK(bfdest);  } 

if(aoceK(*pbdouLciiir,  0)  —  0)  { 

fiiniefse(dat,Nl3li^NUll^pbd_outpia_root.”.ciiin; 

hfiouice  «  LZOpenFUeCpbdoiR.ciiif'.  Aofiouroe,  OF  READ); 
hfdett-LZOpeiiFile(dest.Aof(iest.OF^  ~ 

LZG)py(hfioufoe,  hfi^); 

LZCtoeeOifiource); 

LZCtowChfikst);  } 

iCcessCpbdouttot".  0) »  0)  { 

fiuiier8e(dest,NlJU^NULL.pbd_oulput_ro(>t.*.tot”); 
hfiouroe  >>  LZOpenFi)e(*pb^Ltot”,  Aofioiuce.  OF_READ); 
hidest  -  LZOpenFUeCdest,  Aofdest,  OF.CREATE); 
LZCo|)y(hfiouroe,  hfdest); 

LZQose(hfiouioe); 

LZCIoseOifdest);  } 

if(acGess("pbdouLgsp”,  0)  =  0)  { 

fiuiierge((k^NUU^Nl)lI^pbd_output_root,".giq;i*^^^ 
hfiouice  >■  LZOpeiiFile(”pbdoutgsp”,  ^fiource,  OF^READ); 
hfdest  *  LZOpenFile(d^  Aofdest.  OF.CREATE); 
LZCopyChfiouice,  hfdest); 

LZCIose(hfiouice); 

LZQoee(hfdest);  } 

if(aooessCpbdoutsol”,  0)  0)  { 

fiuiierge(dest,Nl)LL,NULL,pbd  output_ioot.”.sol"); 
hfiouice  -  LZOpenFikCpbdoutscri".  Ai^ouice.  OT_READ); 
hOest  -  LZOpeiiFile(dest,  ftrfdest,  OF_CREATE); 
LZCo|iy(hfiouice.  hOest); 

LZCkweQifiouice); 

LZCIose(hfdest);  } 

ifl[acoess(*pbdouLktq",  0)  —  0)  { 

fiuiieisB(dest,NULI^Nl)LUpbd_ou4wt_root,*.taq'*); 
hfiouice  «  LZOpenFileCpbdoutktq”,  Aofiouice,  OT  READ); 
hfilest  -  LZOpeiiFik(dest.  Aofdest,  (X'.CREATE);  ~ 
LZCo|qr(hfiouice,  hidest); 

LZCIoeeOifiouice); 

LZCIoee(hfdest);  } 


ifl[aKessCpbdouLobg*.  0)  —  0)  { 


lta^leri0((le■t.Nl)L^^nJLL4lbd_ou4^ 

h&oufoe  *  LZOpenFikCpbdoutobf  *.  AflfKNiice,  W.READ); 

-  LZOpciiFile(ikst.  Aofiteit.  OF_CREATE); 
lZCo|9(IAoiiioe,  hfikst); 

LZCloieChCnifoe); 

LZCIoK(lifaest);  } 

if(aocesi(*|ibdoiiLbn*.  0)  —  0)  { 

fkiiiieife(dat.NUli^NULUpbd_output_raot.”.b^ 
h&ouice  >■  LZOpenFikCpbdouLbn*.  Ao&ouite,  OT_READ); 
hfikst  -  LZOpeiiFik(dest.  Aofilest.  OF_CREATE); 
LZCopyChfiKMUce,  hfdeit); 

LZOoaeOifioufoe); 

LZClonOifdest);  } 

tfl:accessrpbd«tf.sgr'.  0)  —  0)  { 

fiiiiierge(<lest,NUIX,NU]X,pbd_out|Wt_root.*.s^ 
h£»ufoe  *  LZOpenFileCpb^tsgr*.  &o£source,  OF_READ); 
hfdest  -  LZOpeiiFile(dest.  Aofdest,  OT.CREATE); 
LZCof>y(hfioiiroe,  hfdest); 

LZCIose(hfioufoe); 

LZCloseChfdest);  } 

if(acoess(*pbdoiiLrdc*.  0)  »  0)  { 

fiiiiierge(dest.NUU^NUIX,pbd_output_root,”.rdc”); 
h&ouioe  -  LZOpeiiFile(*pbdouLrdc‘'.  Aoisouice,  OF_READ); 
hfdest  -  LZOpenFileCdest,  &ofdest,  (^.CREATE); 
LZCopyChfiouioe,  hfdest); 

LZCkwe(h&oufoe); 

LZCk)se(hfdest);  } 

if(acoess("pbdoiiLvq)*,  0)  =  0)  { 

fiiiiierge(d^NULL,NlEX.pbd_output_foot,''.vcp”); 
hfiource  »  LZOpeiiFile(*pbdoiit.vq)”.  &o&ouice.  OF_READ); 
hfdest «  LZOpenFilefdest,  ftcrfdest,  OF_CREATE); 
LZCopyChfisouice,  hfdest); 

LZCkwe(hfiouroe); 

LZCIose(hfdest);  } 


if(access(*pbdouLhdi*.  0)  —  0)  { 

fiuoKrge(dest,NUli^Nl^pbd_output_root,”.hdi"); 
hfiouice  LZOpenFUeCpbdouthdi",  At^ouice,  OF_READ); 
hfilest  *  L2SOpeiiFile(d^  Acddest,  OF_CREATE); 
LZCa|iy(h£wuroe,  hfdest); 

LZGoseOifioiiice); 

LZCIoce(hfiiest);  } 

i^aooess(”cuni)bd.err*,  0)  «  0)  { 

fiuiierge(dest,NULL.Nl]LL,pbd_oii4>ut_ioot,*.m”); 
hfiouice  *  L20peiiFUeCcuiTpbd.er^,  At^source,  OT'_READ); 
hfdest -LZOpenFitefdest.  Aofdest,  OF.CREATE);  ~ 
LZCopyfhfioofoe,  hfdest); 

LZOoseCh&ouree); 

LZCkMeOifikst);  } 
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i((aoo8ai(*ciaipbd.ci»'‘.  0)  -»  0)  { 

fiuBe^dert.Nlnl^NlJLJLJlbd_outplrt_IOOt,^ebg*); 
hftouroe  **  LZOpenFile('currpbdefa«*,  Aofiwuroe.  OT  READ); 
hfiiett  -  LZOpenFikCdest.  Aalde«.  OF_at^ 
LZCQ|qr(li&oaice.  hfilMt); 

LZCloKOi&oiiroe); 

LZCIoK(hfilest);  } 


APPENDIX  C.S 


Miscdljuicoiu  PLL  fnnctioDS. 


C.5  Miscducoiu  FLL  functioas. 


The  PLL  Windows'll  i^)pUcation  uses  21  diff^-ent  functions  in  addition  to  those 
alrauiy  described  in  sections  C.  1  through  C.4.  Two  of  the  functions  are  used  to  handle 
the  Output  Viewa*  window  scroll  bar  input.  Ten  of  the  functions  are  used  to  write  files 
that  provide  input  to  the  PLL  and  PBD  FORTRAN  executid>les.  Seven  functions  are  used 
to  read  standard  PLL  input  data  or  project  files  and  files  written  by  the  PLL  FORTRAN 
executaUe.  The  final  two  functions  are  used  to  initialize  global  variables  and  to  delete 
temporary  data  files.  The  function  declarations  are  fisted  below  in  the  order  in  which  the 
functions  will  be  presented. 

//scroll  bar  handlers 

void  WMVScroll_Handler(HWND  hWnd,  HWND  hwndCtl.  UINT  code,  int  pos); 

void  WMKeydown_Handler(HWND  bWnd.  UINT  vk,  BOOL  (Down,  int  cRepeat,  UINT  flags); 

//file  writing  fiinctions 
void  write_input_fiIe(FILE  *blade); 

void  write_project_file(FILE  *blade): 

void  write_pbdadmin_file(void); 

void  write_de&iilt_file(FILE  *blade); 

void  write_wakecalc_fiIe(FILE  *bla^); 

void  write_ductfon3le(F1LE  *blade); 

void  write_absniles_file(FILE  *blade); 

void  wrile_thsttofq_fileOnLE  *blade); 

void  write_n4calcifC_file(FILE  *blade); 

void  write_iiiisc_fi]es(v(M); 

//file  reading  fiinctions 

void  ieadJbiade_file(FILE  *blade,  int  component); 

void  iead_wake_file91LE  *blade,  int  component); 

void  iead_inpiit_file(FILE  *t>lade); 

void  iead_proJect_fiIe(FILE  *blade); 

void  iead_plot_fik(FlL£  *Uade); 

vmd  lead .glaii^_file(FILE  *bl^); 

void  iead_unload_dat_fiIe(FILE  *blade); 

//misc  fiinctions 

void  initializeCvoid); 

void  delete_files(int  file_flag); 
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CS.1  ThcWMVScroU  Handler  fuaction. 


The  WMVScroUJHandlcr  function  re^nds  to  WM_VSCROLL  messages.  The 
function  uses  a  switch  to  determim  and  perform  tlw  required  re^nse. 

void  WMVScroU  HudMHWND  bWnd,  HWND  hwndCtl.  UINT  code,  intpos) 

{ 

The  fiuiction  uses  a  local  ini^er  variable  to  record  the  inital  position  of  the  scroll 

box. 


int  temp;  //temporaiy  integer  value  used  to 

//  detect  changes  in  scroll 
//  bar  position 

//record  the  initial  scroll  bar  position 
temp  Scroll_Pos; 

//this  switch  specifies  the  response  the  scroll  bar  messages 

The  switch  responds  to  messages  generated  by  clicking  on  the  upper  and  lower 

arrows  of  the  scroll  bar,  the  scroll  bar  regions  above  and  below  the  scroll  box,  and  clicking 

and  dragging  the  scroll  box  itself 

switch(code) 

{ 

Clicking  on  the  up  and  down  arrows  on  the  scroll  bar  causes  messages  with  the 
SB_LINEUP  and  SB_LINEDOWN  codes.  The  response  in  these  cases  is  to  increment  or 
decrement  the  Scroll_Pos  variable  by  one.  The  Scroll_Pos  variable  is  a  global  variable 
that  reflects  the  position  of  the  scroll  box  on  the  Output  Viewer  window  vertical  scroll 
bar. 

//alter  the  value  of  Scndl_P06  as  indicated  by  the  message 

case  SB.LINEUP: 

{  Scrcdl_Pos-; 
break; 

} 


case  SB  LINEDOWN; 


I 


« 


« 


I 


I 


« 


I 


I 


I 


{  ScroU_Pot++; 
bnik; 

> 


CUddng  on  the  acroO  bar  above  or  bdow  the  sm>II  box  causes  messages  with  the 

SB_PA(£UP  and  SB_PACSEDOWN  codes.  The  response  in  these  cases  is  to  incronent 

decrement  the  Scrdl_Pos  variaUe  by  the  munber  equal  to  the  number  of  lines  that  may 

be  dispbqred  in  one  page. 

case  SB_PAGEUP: 

{  ScroU_PQS^LiiiesInWiiidaw; 

bleak; 

} 

case  SB.PAGEDOWN: 

{  Scroll  Pos+^LinesInWindow; 

bieak;~ 

} 


The  SBJTHUMBTRACK  case  responds  to  the  user  moving  the  scroll  box. 

case  SB_THUMBTRAC3C: 

{  Scnril_Pos*'pos; 
break; 

} 

> 


The  Scroll_Pos  variable  is  constrained  to  be  between  zero  and  the  total  number  of 
lines  of  text  being  ttisplayed,  the  current  range  of  the  scroll  bar,  by  a  pair  of  max  and  min 
macro  calls. 

//Scroil_P06  must  be  between  0  and  the  total  lines  of  text 

ScroU_Pos  >  niax(ScrolI_Pos,0); 

ScroO.Pos  -  minCTotalJUnes.  Scioll_Pos); 


The  SCToU  bar  postion  is  set  to  the  po^on  indicated  by  the  Scroll_Pos  variable, 
and  the  Output  Viewer  window  is  rq)unted  if  the  new  scroll  bar  position  is  not  the  same 
as  the  initial  scroll  bar  position. 

//set  the  scroU  bar  position  to  that  indicated  by  Scroll_Pos 

SetScfoliP06(hWnd,  SB_VERT,  Scroli_Pos,  TRUE); 
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//if  ScraU.Fot  Im  ^lafBd,  CWH  te  Knai  to  be  NfMiioled 

iKScnO  Poci^emp)  lovaiidetdlectChWnd,  NULL,  TRUE); 

> 


CS2  The  WMKcydttWB^HMdlcr  fuactioB. 

The  WMKeydown_Handler  function  translates  keyboard  entries  and  sends 
apprc^mate  messages  to  the  vertical  scroll  bar.  This  is  done  in  order  to  allow  the  user  to 
contol  the  Output  Viewer  window  vertical  scroU  bar  messages  uting  the  Up  Arrow,  Down 
Arrow,  Page  Up  and  Page  Down  keys. 

void  WMKeydown  HandkrfHWND  hWnd,  UINT  vk,  BOOL  fDown,  int  cRqwat,  UINT  flags) 

{ 

switch(vk) 

( 

/Mlbt  up  arrow,  down  arrow,  page  up,  or  page  down  is  pressed,  send  the  appropriate  message  to  the 

//scredl  handler 


This  switch  tests  the  unsigned  integer  identifier  of  keyboard  entry  messages. 
Messages  corresponding  to  the  Up  Arrow,  Down  Arrow,  Page  Up  and  Page  Down  keys 
cause  the  SendMessage  function  to  be  used  to  send  a  WM_VSCROLL  message  with  the 
^tpropriate  code  to  the  Output  Viewer  window.  This  allows  keyboard  input  to  operate 
the  vertical  so-oU  bar. 


caseVK_UP: 

{  SendMessageChWnd,  WM_VSCROLL,  SB_LINEUP,  OL); 

bredc; 

> 

caaeVK  DOWN: 

{  SendMessageOiWnd.  WM.VSOfUXX,  SB.LINEDOWN,  OL); 

break; 

} 

caseVK  PRIOR: 

{  SendMessageChWnd,  WM.VSCRCXJL,  SB_PAGEUP,  OL); 

break; 

> 

caseVK.NEXT: 
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( 


ScadMMwrQtWad.  WM.VSCROLL,  SB.PAGEDOWN,  OL); 


» 


tacric; 

} 

} 

fdm; 

} 


C.53  Tkc  write_iapiit_fyc  fnactioB. 

The  writejiiput_file  function  is  used  to  write  temptHsiy  input  files  in  the  format  of 

standard  PLL  input  files.  The  files  written  are  used  as  input  for  the  PLL  FORTRAN 

executable.  The  fiinctitm  receives  a  pointer  to  a  FILE  structure  as  an  argument. 

void  write  il^)ut  file(FILE  ^input) 

{ 

*dedarevaiiaUestliat  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  function  * 

**««•«*««««*««««««««*#««*««««*«««•«««*««•**««««*******«•********««*««/ 

extern  diar  RUN  ID(21].  inuige  hUb.  image  duct.  ringedjMopelleifmax  comp], 
BLDM(max_oomp]j21].  WKIN(^_coaip]f21]; 

extern  int  use.currJUade,  NBLADE(max_coii9],  LDEV; 

extern  float  DCHD,  DCD,  DTHK.  DDIAM,  XDUCT,  VS.  RHO.  DSHAFT. 

XDLXX3(niax_oonip].  XDlAM(max_conq>].  XWDIAM(max_comp]; 

f*m************************************************mm**»************* 

*  Variable  dedaiatioos  * 

•***««*««•««««*«**•*«•««««««*«*«««««««««*««««***•«*•«*••***•*«•««***«/ 

struct  date  d;  //date  structure 

int  M;  //loop  counter 

//fill  the  date  structure  with  the  current  date 
getdide(Ad); 

//write  the  RUN_ID  line 

4)rintfl[input.*  FRCff^LER  LIFTING  LINE  RUN:  %s  SdAid/%d\n". 
RUN_ID.d.da_inon.d.da_day.d.da_>ear); 

//write  the  file  description 

lprintfl[itq)ot.*  OVERALL  INPUT  FILE  \n”); 

//write  the  ship  qieed 


» 
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.Sypap«0d(fttac)\a*.VS); 


. JhM  DeMi^*JU10); 

//write  tke  dMlI  oealertiae  dqNh 

4viat4^nfMt."Sf . Shift  oealeriiiie  deiith  (ft)\B*, 

DSHAFT); 

//wmt  IM  UMBOCIf  Of  rOiHpnliflltt 

4)riatl(iiipiit.*94d . Nuidber  of  coiiyonentito‘‘JJ>EV); 

//write  wfaedwr  or  Dot  IB  tmise  hi/b  is  uaed 


if(iiDi|e_hub>*'”D 

4>rintl(in|wt,"%c . Image  hub  to  be  usetftn*.  image.hub); 

else 

fkirintf(in|Mt."Sc . No  image  hi4>  to  be  used\n*,  image_hub); 


//write  wfaellier  or  not  an  isiage  duct  is  used 


if(iniage_ducC»O0 

iprintf(iivut,*Sc . Image  duct  to  be  used\n”,  image jduct); 

else 

fprintf(in|wt,”%c . No  image  duct  to  be  usetftn",  image.duct); 


//write  the  duct  data,  if  theie  is  one 
if(imagc_duct*'"V){ 

//write  the  duct  dKKd  length 

4)rintf(uvut,*%f . (Duct  dioid  length)/  (Component  #1 

dianieter)\n*J)CHD); 

//write  the  duct  drag  coefficient 

l|Nintf(input,"Sf . Drag  coefficient  for  the  duct\n”JKD); 

//write  the  duct  thidcness 

. (Duct  thidcness)/  (Component  #1  dianieter)\n*  J>THK); 

//write  die  duct  diameter 
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l^riMi(iiV«.*9tf . J)«ct  diamler 

DDIAMy. 

//write  dK  dacl  axU  knMioa 

4irialfl[ia|ial,”Sf . Axial  locarioa  of  duct  uud-cboid  (ft)\B”.XDUCT); 

> 

ti((M-oari<J}EVMH-M 

//if  tkere  ia  no  buafo  duct. 

ifl[inv_dua  — 'N0( 

//write  udwtker  or  not  the  propdler  tt  ringed 

if(ringed_prapeller(M)>aOO 

4)rintf(iiqMit,”%c  Component  %d  is  \ 

a  ringed  prapdki\n*,ringedj>rof>eUer(M]>l+l); 

else 

4)rintfl[inpitt.”Sb  Component  5id  is  not  a  \ 

ringed  propeller\n”.ringed_propeUer(M],M+l); 

> 

//write  the  axial  location  iftheie  is  more  than  I  prt^Uer 
ifl[lJ»V>t){ 

4xiittf(input,*%f . Axial  location  of  component  %i 

(ft)\a*.XDLOCCM]Jri+l); 

} 

//write  dte  nunrixr  of  blades 

4>rintfl^iqxd.”%d . Nuihber  (rfblades  on  component  %dyn",NBLADE(M].M-*-l); 

//wide  the  dianieter  of  the  pnpelltt 

4irinlfriivat.”9tf . J>iaineter  of  component  %d  (ft)\n*.  XDIAM[MIM<-1); 

//write  dte  blade  file  name 
t6[use_ciiiTjbiade) 

4)rinli^iqmt,”ciniSd.bld  File  containing  Made  iiqwts  fin  oonqi.  Sd\n”Af+l); 
else 


i 


» 


i 


i. 


i 


i 


» 
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File  ooatti>ta(  blade  \ 


iiVali  te  coai^  %«■* JLOIN|Mmi>i+l); 

//write  dM  diaBHlBr  efdK  wake 

. Diaeaeler  of  wake  far  ooiBponeiit  %i  (ft)\n”.XWDIAM{M]>f+l}; 

//write  tie  wake  file  aaaa 

l|triatf[ia|ari.*9(e  File  coateiaiag  wake  iaputs  for  oooip.  Sd\a''.WKIN|M*21]^-i-l); 

) 

/fmo  dK  uaejcanjiladeflac 
ueejcarrJUade  -  0; 


C.S.4  The  writc_projcct_fUc  fuBction. 

The  write_project_file  function  is  used  to  write  project  files  in  response  to 

FileiSave  Project  selections  fiom  the  mun  menu.  The  function  receives  a  pointer  to  a 

FILE  structure  as  an  argument. 

void  wrilejMrqfect  file(FILE  *prai) 

( 

*  declare  variaNci  that  ait  defined  in  die  pU.c  file  and  thtt  will  be  used  in  diisfunctioa  * 
extern  char  RUN_1D{21].  INFUTFILE(20]; 

extern  iat  LKV,  optiniize_ipnii,  opdinize.dianieler,  maximizejthnist,  no_runtiine_ofitions. 

eflbctive_wake_fti^  tBiuidjopeiatioa_fli^  duct_fiifoes_flag, 
dBCt_ria^vortex_fi)rees_lli^  cirejO|i^wri»_aligaiaent_flaf> 
eedi^jlnctjcirciilatioojlag.  estimalejdaiiqiinLfiag,  NPANEL, 
oontncdon.iatkijlac,  widK.alignmeat^flag.  ciiculation_opliniization_flag, 
choidjoptiinization_flag,  doa_aietti_liae_ilag,  einpirical_vod_flag, 
prapdkrj^rpe.fiag, 

prapdler_niaterial; 

extern  float  hoiaepowtr,  RfM|niax_coiiipl.  dinist_cocfficient.  estiinated_duct_ciiculation. 

torqae.fatio.  darning,  prapeUerjhict.thnist.fatio,  piopeller_ring_thnist_iatio, 
thmit  CLMAX,  TCH1M4AX,  HUEiCHD|niax_oonq>],  TTIP.  CDCON, 

RHV^  PLl,  PL2.  OeWiRAT.  GAPFAC, 
material joonitaiH(uier_defiBed_nieteriaH-l|C2].  rake{2]; 


<—»»«»♦— »♦*»»*»•*♦*«***«****«****»***»*»***»****»*»♦»* 

*  Vy*fl**f  **«*— 

Mniot  dMe  d;  /Atate  (tracdire 

iat  M;  //loop  oonoler 

//Bll  tke  dMB  Miyctui*  with  the  cuneat  dale 
•BldBleCAd); 

//write  the  RUN.lDliae 

l^riatflM*  PROPELLER  LIFTING  LINE  RUN:  Se  Sd/%d/%d\B*. 
RUN_ID,d.da_aioa,d.da_<hqr.d.da_yeir); 

//write  the  fik  deacriptioa 

Q)riatl(pni*  OVERALL  PROJECT  FILE  \b%20s  OveraU  iiqMt  \ 
fileaaaieNa*.INPUTFILE); 

//write  the  RUN_ID 

4iriatfl[pn^*Se  RUN  ID\n*  JIUN.ID); 

//write  the  auatbef  of  coaipoaents 

4Mialf(pfoi.‘'Sd . Nuodier  of  oooipoiientsW 

//write  the  ipoi  for  each  oompoaeat 
for(M-0>f<LraV.M4-t-) 

4iriatfl[prqj,"Sf . RFM  of  component  #Sd\a”.  RFMIMl^d-t-l); 

//wrhe  the  Optuuze  ipai  flag 

4iriatf(proi,"94d . Optuaize  ipm  fla|j\a”.  optiniize_ipia); 

//write  the  Optiauze  dianieler  flag 

4iriBtfO>nii.''Sd . Optiaiize  diameter  fla^”,  optiniize_diameter); 

//write  flie  hhadaiize  thrait  flag 

4Miatf0prai,”Sd . Maxiaiize  thniit  fla^”.  naadniize_thfust); 

//write  flteHoracpowerfcrmaximmBgthnBt 

4)riatflbav(i,*9tf . Jlonepower  for  maximiziBg  thraslNn”,  horsepower); 


» 


» 


i 


t 


» 


» 
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//write  Tint  nrnfflrint  fcr  —xiMiat  tfcnwt 

. Thniat  codBciet  fcr  nximiaat  thrai<\B*.thnittjoodHciari); 

//write  the  No  iwtiM  flprioM  flag 

. No  nutiM  ogtioM  llsi^D^  ao_niflliaw_o|itioat); 

//write  tke  BObdive  wriko  flog 

l|^rialB^*%d . Effective  wrise  Ifai^*.  effeclive.wake.flag); 

//write  the  Tonel  ogenlioa  flog 

||^riotfl^n^"Kd . .Thaoel  operatka  fla^*.  liiaael_o|KfatioiiJlag); 

//write  the  Itet  fcioee  flag 

4iriad(pn;i),"%d . J>uct  fcioei  flag^o'',  duct_fones_flag); 

//write  fce  Duct  ring  vortex  fcraee  flag 

4iriatf(pf(^*Sd . Duct  ring  vortex  forces  flagVn*.  duct_ring^voitex_forces_flag); 

//write  the  Ciic  opt  wake  alignment  flag 

4irintfl(pni9.*%d . Circ  opt  whke  alignmem  fla^”.  circ_opt_wake_alignnient_flag); 

//write  the  Estimafo  duct  drcttlatkm  flag 

4irinlf(pni*%d . Fwimii!  duct  drcufattion  fla^”.  estimate.duct.circulation.flag); 

//write  the  Eriimate  duct  ciicalalion  flag 

4irintfl^tRi”Sd . Fatimate  dancing  flagVn*.  estimate_dampfng;_flag); 

//write  the  Estfanalfd  duct  circulation 

4irinll(prqi.*Sf . P-wimarad  duct  circalatk»\n”.  estinated_duct_ciicu]ation); 

//wfhe  the  Torque  ratio 

4irialflQprqj,”Sf . Torque  rxtkfoi”.  torque.rriio); 

//write  die  Dangling 

4irintf(ptqi.*%f . Dafflpin|^n^  dampii^; 

//write  die  Propeller  dact  duuri  ratio 

4irintl[^)n^*9tf . Propeller  duct  thrust  iatio\n”.  propdler_duct_thnist_ratio); 

//write  dm  Propdler  ring  thrust  redo 
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. Prapdkr  luf  thraii  fatioNa*.  pfQpeller_im£_tlinut_tatio); 

//wfte  tike  Thniat  citiaale 

4riati|^in(j.”Sf . Thfuit  otiaiai^*.  thnHt_estume); 

INm)tt  the  aMximma  lift  oorfUcicat 

l|^riati(pR(|,*%r . Afaxiaami  lift  codBckntVa*.  CLMAX); 

//wrte  the  maxiawim  IhickBcn  to  chord  ratio 

l|irialll^^R{i,*%f . MaxiflMun  thidracai  to  choni  fatioNa”.  TCHMbfAX); 

/Awite  the  aunimuni  chocdAtiMacter  ratio  it  the  root  for  each  component 

ljtrialf|^i«qi,"%f . MininHim  chord/diaaieler  ratio  at  \ 

the  root  br  eadi  oomponcat\a*4WJBCHD(M]); 

//write  the  tip  thidmcM  to  dnid  ratio 

4>riatftpny."Sf . Tip  thickness  to  chmd  ratio\n*.  TTIP); 

//write  the  nuntber  of  panels 

4irintf|^iroi,*Sd . Number  of  panelsVn*,  NPANEL); 

//write  the  drag  ooeIBcient  multiplier 

Q)rintlOMoi,*%f . Drag  coefficient  multiidief\n”.  CDCON); 

//write  the  hub  vortex  radius  to  hdb  radius  ratio 

4)rintf(proi,"Sf . Hub  vortex  to  hub  radius  ratioNn",  RHVCXt); 

//wtHe  the  firat  Lagrange  multiplier 

4iriatfl^iniij,*Kf . First  Lagrange  multiplietNn”,  PLl); 

//write  the  second  Lagrange  multiplier 

l|ptfaMfl[ptq).*9tf . Second  Lagrange  nniltipliei\n”,  PL2); 

//write  the  contraction  ratio  flag 

4irinll(pR|i,*%d . Contraction  nttk)  fle|^*.  c(mtraction_ratio_flag); 

//write  the  oonnt  to  the  file 

4irinlf(prqi.”Sf . Contraction  ratioVn”.  CONRAT); 


» 


» 


»  • 


ft 


ft 


ia 
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//write  the  wekejteigBeMat.llaf 

4ttted(pRy,*Kd . Wake  aligiiiiiffte  wakB_eligBiBeiit_flag); 

//mite  the  cfateitefaM_C|»tiiMMthwi_llah 

. Circiilatioa  optimiTation  ciiculetkm_optiiiuzatioa_fleg); 

//write  the  choril_o|itiatiziiioa_flaf 

l|9riatflC|iR{i.*Sd . Chord  optimintioB  fle^*.  diotd_optiiiiizatkn_flag); 

//wrte  the  duct_aMaa_liiie_llag 

li|iriat(|QptC!i,”Sd . Duct  mean  line  flei^a”.  duct_mean_line_fleg); 

//write  the  caqHrical_vod_llag 

4iriBtf(pr(^"%d . Empirical  vcd  lla^*.  empirical_vcd_flag); 

//write  the  duct  tip  gap  fiKtor 

Qirintfl(pn)i,*Sf . Duct  tip  gap  fitetorNn",  GAPFAC); 

//write  the  ptopeller_type_flag 

4>cintfl^prq,*Sd . Propeller  type  flag^n^  propeller_type_flag); 

//write  the  propelier_material 

4Mintfl(prqi,”Sd . Propeller  materialNn*.  propeller_inaterial); 

//write  the  user  defined  propello' material  constants 

4)rintf(prqi,”%f . Ultimate  Tensile  Sticngth(ksi)\n”. 

niaterial_constantIuser_defined_niaterial](0]); 

4irintfl[pn^"%f . Specific  Weight(lbfia^3)\n”. 

material_constant(user_d^ned_material)I  Ij^ 

//write  the  take  at  hub  and  tip  for  abe  calcuhttkms 

4irintf(prqi,”Sf . Rake  at  hubVn”,  take[0]); 

4>rintfl(pr(ii,”Sf . Rake  at  tip\n”,  rdtt{l]); 

> 

C.5.5  The  writc_pbdadniin_fUe  function. 


The  wnte_pbdadinin_file  function  writes  temporary  PBD  main  adnunistrative  files 
fix  use  hy  the  PBD  FORTRAN  executable  using  the  settings  in  the  PBD  Settings  dialog 
box.  The  fimctkm  receives  no  arguments. 


void  wtite_pbdadmm  llle(voMl) 

{ 


*  dedare  variables  tint  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  function  * 

extnn  char 

RUN_ID(21].  pbd_nui_titk(811,  iniage_hiib,  iniage_duct; 

ectera  im 

NBLADElmax  comp).  NKEY.  MKEY.  ISPN.  MCTRP.  IHUB.  IDUC, 
MRPlN[niax_conp|.  MLTVre,  hTTHICK.  NWIMAX.  NITER,  RADWGT. 

NUFIX,  NPLOT,  pU_ooniponent; 

extern  fioat 

DGAP.  TWEAK,  BULGE,  HGAP.  HUBSHK,  CDRAG,  VS.  RPMImax  comp], 
XDIAMImax.comp],  XULT,  XFINAL,  DTPROP; 

*  VariaUe  dedaratkms  * 

FILE 

*proj,  *dat; 

//pointers  to  file  stnictures 

int 

ij; 

/Aoop  counters 

fioat 

temp. 

//temporary  float  for  reading  data 

ADVCa, 

//advance  coefficient  of  the 
//  propeller,  J_s=(V_s/nD) 

//open  the  file  to  be  written 

proj  «  fopeii(*cuiTpbd.pbd",  "w^; 

//write  the  RUN_ID  line 

4irinlfl[proj,*FBD14.2  cttnpbdpbd  %t  \n".  pbd_run_title); 
//write  the  name  of  the  b-qdine  file 
ifOM.oonqxment^H)) 

fil>rintfl^m>j,"cuiTpbdl.bsn\n”); 

dse 

fprintfi^)n>j,”cunrpbd2.bsn\n"); 
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» 


» 


»  • 


» 


i 


i 


//WItiBdW 


oflksvelocifylik 


l^riiitfQpR^*Giin|ibd.vd\o*); 

//write  ehlede,  ekiqr.  and  aliqr 

l^riMiCpni*  %d  %d  %d  \a^NBLADE|ldKl_coiIlpotleflt].NlCEY.  MKEY); 

//write  »!■ 

i|Mail(pRi’%d\a''JSPN); 

//write  aciip  and  the  oooieol  poiati 

4iriiitf(pni''  Sd  "JriKEY-D; 
i<HMKEY-l;  i++) 
l|iriiitf(pfqi.*  Sd",  i); 

//write  ihidi,  hgap.  idiic.  dgap 
ifl[iiiiage_liub>i-V) 

fprintf(prq.*\n  %d  ",  (iiitK(floti)(MKEYV3.0)); 
dee 

fprint£[pfoi,”\ii  0  ”); 

4)rintf(pn^*%f*.HGAP); 

ifl[iiiiage_duct-"^ 

4mi)tf(pfc^*  %d  ",  (iiitX(floatXMKEYV3.0)); 
dee 

^iriatXpny."  0  "); 

QwiiitfCproj."  Vo*.  DGAP); 

//write  nx,  -ox,  mitype,  mlthick 

4)riBtl(jpn^”  9id  9(d  %d  %d  \n",  MRPINIpbd  coiiqx)iient].-MRPIN(pbd_coinponent],  MLTYPE, 

MTHICK)7 

//write  imode 

4>riiitfl[pni9.”  %d  V,  IMCOE); 


//write  nwimax 


^iriallKlwqi.''  %d  \a*.  NWIMAX); 

/AvrilB  oiler,  tweak.  bulfB.  ladwgt.  aufix 

l^riiitf(pni”  Kd  Sf  %f  Sd  %d  \a\  NITER.  TWEAK.  BULGE,  RADWGT,  NUFIX); 

/Avrite  aplot  and  hubehk 

4winll(pn9."  %d  Sr\o*  NPLOT.  HUBSHK); 

/Amtecdiaf 

4)rialfCpn^*  %f  \n-.  CDRAG); 

//cakuble  the  advance  ooefBdan.  use  200  if  the  ocunponent  is  a  stator  and  use  Rl^fO]  if  the  absolute 
value 

//  of  RPM(0]  is  <3.0(aliendy  an  advance  coefiBcient) 
if[GBb6(RPMIpbd_coniponentl)<del) 

ADVCO -200.0; 
else 

if(&bs(RI*M(pbd_cotnponent])<3.0AAfabs(RPM{pbd_component])>del) 

ADVCO  -  RPM[pl)d_coniponent]; 
else 

ADVCO  =  ((RPM(pbd_coniponent)*2.0*PI/60.0)*XDIAM(pbd_component]); 
//write  advance  coefiBcient,  xult,  xfinal,  and  dtprop 

Q)rintf(piDj,"  %f  %f  %f  %r,  ADVCO,  XULT.  XFINAL.  DTPROP); 

//open  the  file  containing  G,  r/R,  t/s,  UA.  UAU,  UT,  and  UTU 
if(pbd_coniponent— 0) 

dat  -  fi>pen("raDADMl.DAr.  "r^; 


i 


i 


i 


•  • 


» 


dat  -  fi)penCTBDADM2.DAT",  V); 

//loop  through  the  data,  read  fiom  the  dat  file  and  write  to  the  proj  file 
for(i-0;  i<7; !++)  { 

^)rintf(proj,"\n"); 

for(i-0;  j<MRPIN{pbd_coniponent);  j^)  { 


lhauifl[<iil,''Sr.Aleai|>); 
4)riiilfl(pfic9.''  Sf*.  temp); 


} 


) 

//doKbothllkf 

ftfaee(pn{D; 

fckMe(dM); 

) 

C.5.6  The  writc_default_filc  function. 

The  write_de&uk_Sie  function  writes  the  default  value  file  that  the  PLL 
FORTRAN  executable  uses  to  initialize  the  variables  that  appear  in  the  Current  Settings 
moiu  of  the  original  version  of  PLL.  It  receives  a  pointer  to  a  FILE  structure  as  an 
argument. 

void  write  defiuilt  file(FILE  *blade) 

{ 

/^t*t*********0*0********0****0****0********************************* 

*  declare  variables  that  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  fiinction  * 

******^0***00**0*00000000***00*00*0**0**000000***000000000*000*000000/ 

extern  float  CLMAX,  TCHDMAX,  HUBCHD[inax  comp],  TTIP,  CDCON,  RHVOR.  PLl,  PL2. 
GAPFAC.  CX)NRAT; 

extern  int  NPANEL,  oontiaction_iatio_flag,  wake_alignment_flag.  ciiculation_optimization_flag, 
choid_optimization_flag,  duct_niean_line_flag.  empirical_vcd_flag,  LDEV; 

/*0000*00***00*0000000****0000*000***0***00000****0000**0***00**000*0 
0  Variable  dedarations  * 

*««*«*««*•***««•««««****«««««««««««•«««««««*«****«******«*«**********/ 

int  M;  //counter  for  the  loops 

//write  the  maximum  lift  coefficient 

4irintftblade."^*.CLMAX); 

//write  the  maxiimim  thickness  to  diord  ratio 


fprintf(blade,*%f\n”.TCHDMAX); 


« 


4 


4 


4 


4 


4 


4 


4 


4 


4 


//wrte  the  ■iMiBBiB  dMMdMIiaiDeier  ratio  M  the  loot  for  eadi  oomponeiit 
•m(MH>->I<LDEV;A»h-) 

4)riatl(blade.*Sf\n"3UBCim 
/Avfte  tte  tip  thidmen  to  choid  ratio 
lkmiMl(blade."Kf^\Tn^ 

//write  the  nunber  of  ponds 

4Mmlf(blade,*Sd\n*.NPANEL); 

//write  the  drag  coefficient  multiplier 
4)rintf(bla(le.''Sf\n".CDCON); 

//write  the  hiib  vortex  radius  to  hub  radius  ratio 
4>riiitf[blade.''Sf\n"JtHVOR); 

//write  the  first  Lagrange  multiplier 
4)iintf(blade.''%fin*J^l); 

//write  the  second  Lagrange  multiplier 
4>rintf(bIade.*V«l\n"J«L2); 

//write  the  contraction  ratio  flag 

Q)rintf(blade,"%d\n",oontiaction_iatio_fiag); 

//if  the  oontiaction_iatio_flag  >=  1,  the  entry  will  be  the  defiuiH  value,  otherwise,  must  write  the  conrat  to 
//the  file 

iff  c(mtraction_tatio_flag  =  0) 

ff)rintffblade,''%f\n".CONRAT); 

//write  the  wake_alignment_fiag 

ff)rintffblade,'‘Sd\n”,wake_aligiuiient_fiag); 

//write  the  circulatioa_optimization_flag 

ff)rintffblade,*%d\n”,circulation_optimization_fla^; 

//write  the  chord_optimization_fiag 

4miitffbiade,”%d\n”,chord_optimization_flag); 

//write  the  doct_mean_line_fiag 
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» 


» 


» 


l^riM«UadB.''SdyB\diict_iBeM_liM_ 

//write  the  ctepirical.vod.llag 

4^rillf(blade,''%l^a^en|liriGri_vod_fl^ 

//write  the  duct  tip  gap  Ihcter 

lkiriBlf(Made.''Hfte*.GAFFAQ; 

> 

C5.7  The  write_wakec«k_file  fuBctioa. 

The  write_wekecalc_file  function  writes  the  file  that  is  read  by  the  PLL 

FORTRAN  executable  to  determine  if  the  effective  wake  should  be  calculated  and  if  the 

coinponent(s)  is(are)  operating  in  a  tunnel.  The  function  receives  a  pointer  to  a  FILE 

structure  as  an  argument. 

void  write  wakecak  fikfFlLE  *blade) 

{ 

*  dedare  variables  that  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  fiinction  * 

««««*«««««**««««*«««««*«««*«««**«*««*«««•*****••«******«*«****•*****«/ 

extern  int  effective_wake_flag.  tunnel.openitionjlag; 

//write  the  effective  write  flag 

4iriotffblade,''Sd\n”,cffiKtive_wake_fiag); 

//write  the  tunnel_operation_flag 

4)rintffblade,”%d",tunnel  operation  flag); 

} 

C^.S  The  write_dactforc_lile  function. 

The  write_duGtforc_file  function  writ^  the  file  that  is  read  by  the  FIX  FORTRAN 
executable  to  determine  if  the  duct  forces  or  duct  ring  vortex  forces  should  be  ignored  and 
if  an  estimate  of  duct  drculation  should  be  used  and  the  value  of  the  estimate.  The 
function  receives  a  pointer  to  a  FILE  structure  as  an  argument. 


voidwrile  ductfoic  file(FILE  ^blade) 

{ 

/W****************************************^************************** 

*  dedaie  variables  that  an  Mined  ia  the  pU.c  fik  and  that  will  be  used  in  this  function  * 

t********************************************************************/ 

extern  int  diKt_fin8_voftex_lbioes_flag.  duct_fi)rces_flag.  estiinate_(hict_ciiGu]ation_flag; 

extern  float  estiBialed_duct_ciiculation; 

/Anile  the  duct  ring  vortex  fiMfoes  flag 

4Mintf(blade,*Sd\n*,diict_ring_vottex_fi>iGesjQag); 

//write  the  duct  fiuces  flag 

4irintg[blade,‘'%d\n''.duct_fofces_flag); 

//write  the  estimate  duct  circulation  flag 

fprintl|[blade,''%dVn'',estiinate_duct_cifculatioQ_flag); 

//write  the  estimated  duct  circulation 

^)fintf|[blade.'‘%fln*.estimated_duct_circulation); 

} 

C.5.9  The  write_absnilcs_file  function. 

The  write_absrules_file  function  writes  the  file  that  is  read  by  the  PLL  FORTRAN 
executable  to  determine  whether  the  propeUer  is  fixed  or  controllable  pitch,  the  rake,  and 
the  material  properties  for  the  purposes  of  the  ABS  Rules  strength  calculations.  The 
function  receives  a  pointer  to  a  FILE  structure  as  an  argum^f. 

void  write  absrules  file(FlLE  *blade) 

{ 

fnn*n**nnnn*n*n***n*****n******************************************** 

*  dedan  variaUes  that  an  defined  in  the  |rii.c  file  and  that  will  be  used  in  this  function  * 
nnnn*****************************************************************/ 

extern  int  ptopdlerj^_flag.propelier_material; 

extern  float  material_oonstant(user_defined_material+l)[2],  rake(2]; 


/AmilBtbr  ^rapdkr.tjfpe.lbif 

4dM«btade^''Sdte*.fnvelkr_^_l^ 

//write  the  Mtferial  UTS  ia  ka 

l|prialfl(blade,"Sfya*.aHMerial_ooiiilae(l(pnpelkr_iBele^ 

//write  the  iMteriel  specific  weiiht  ia  fee  per  cubic  iadi 

4wiall(blade,"SfiB*.auherial_ooaitaBt(prapeUer_aiaierial]|l)); 

//write  the  lake/diamcter  at  die 

4aiatf(blade,''SiyB”,rake(l]); 

//write  the  nke/diaaieler  at  the  hub 

4)riiitf(blade.''SI\n*.rake(0]); 

> 

C^IO  The  write_tlisttorq_filc  functioB. 

The  vvritejthsttorq_fiIe  function  writes  tlw  file  that  is  read  by  the  PLL  FORTRAN 
executable  to  determine  the  thrust  estimate  for  the  project  and  the  derired  ratio  of  thrust 
between  components  two  and  one  and  the  ratio  of  duct  or  ring  thrust  to  total  thrust.  The 
function  receives  a  pointer  to  a  FILE  structure  as  an  argument. 

void  write  disa(Mq_file(FILE  *blade) 

{ 

*declaRvaiubles  that  are  defined  in  the  pll.c  file  and  that  will  be  used  in  this  functioii  * 

*««**«**•*««••*««««•«***•*****«*«««*«**«*«««*••*«•«**«•«***«*•*«*«««•/ 

extern  float  thnistjestiinate,  tMt|ue_rriio,  propd]er_duct_thnist_iatio,  propeller_ring^thnist_nitio; 
//write  the  thnist  estimate 

4irintf(blade,*%fyn*,thrust_estiinate); 

//write  the  torque  latio 

4xintfl[blade,*9if\n*,toique_ratio); 

//write  the  thnist  ratio  between  the  propeller  and  the  total  thnist  for  the  ducted  case 
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//write  tile  ihnm  ratio  tetweea  the  propdkr  and  the  toUl  thniit  tar  the  riaicd  cue 
l^rial4|biade,''Kfyii".pra|iellte_riaf_tlinite 

> 

C5.ll  TIm  wrttc_wlcalcire_fQc  fwKtioa. 

The  write_wkalcircj61e  function  writes  the  file  that  is  read  by  the  PLL  FORTRAN 
executaUe  to  detenntne  ifthe  wake  should  be  aligned  during  the  drculation  o|Minuzation 
procedure.  The  function  receives  a  pointer  to  a  FILE  structure  as  an  argument. 

void  write  wkakiic  file(FILE  *blade) 

{ 

*  declare  variables  that  are  defined  in  the  pll.c  file  and  thte  will  be.used  in  this  function  * 

«***««««««*«««*««*«««««««•««**«««««««««*««««*«««*••*««««•***•••«**«**/ 

extern  int  circ_opt_wake_alignnient_fiag; 

//write  the  circ_opt_wake_alignnient_fiag 

4mntf(blade,*Sd\n*.ciic  opt  wake  alignment  flag); 

> 

C.5.12  The  write_misc_filcs  function. 

The  write_nusc_files  function  writes  several  input  files  that  are  read  by  the  PLL 

FORTRAN  executable.  Some  of  the  files  are  written  using  fprintf  function  calls  while 

others  are  writtai  by  calling  functioiu  described  elsewhere  in  this  tqrpendbc.  The  function 

receives  no  arguments. 

void  write  miscJUesfvoid) 

{ 

*  declare  variables  that  are  defined  in  the  |d].c  file  and  that  will  be  used  in  this  function  * 

*«***•*«***«•******«*«*•«**«««««««««««««««««••****••*««•**««««*«*«««*/ 

exton  float  pbd_dtewfniax_iad](niax_oonip],  pbd_rake[niax_rad][niax_conip],  damping, 
horsqxnver,  thnist_ooeflBcient; 


iai 


pbd.lik.fl^  NKEY.  MKEY,  MRPINIaHx.ooav),  attmie_duvii«g_fl«g. 
QptiBiiv_i|Hii,  oplifluxe_diaHclsr,  ■•xiaiizc_tbnMt,  fll(«  iiMlch_EAR_flas. 
eval_Maaxi_Mlor.  ■o.nadae.oplioM; 


*  VMMededMaiioM  • 


HLE  *001; 
Mnict  dMed; 
Anct  tioKt; 
m  k; 


//pointer  to  a  file  stnicture 
Hiatt  itntiBan 

//lime  structure 
//loop  counter 


These  three  blocks  of  code  open,  write,  and  close  temporary  defiuilt  settings, 

project,  and  input  files. 

out  ■>  fbpeiiCteiiq).der,  *w*); 

write_dc£nih_file(out); 

icloae(out); 


oat  -  ibpeiiOenp.|iq*. 
write jMoiect_fil^out); 
fdoee(out); 


out  <■  fiipeiiCteinp.iiip".  V*); 

writB_iiqMt_file(out); 

fidoee(out); 


If  the  pbd_file_flag  flag  is  set,  a  temporary  file  that  is  used  by  the  PLL  FORTR/W 
executable  to  write  the  PBD  B-spline  file  is  written. 
il(pbd_file_flag)( 

out  ■  fopeii(*FBDDEF.DAT,  "w^; 

4mntfioat.*%d  %d\n*.  raCEY,  MKEY); 
fiMfic-O;  k<MRPlN(0];  k^) 

^MintfCout,"  pbd_dcewPi]|0],  pbd_rakepc][0]); 

^oae(oat); 
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) 


The  next  five  blodcs  of  code  open,  write,  uid  close  ten^wraiy  files  th^  are  used  by 
die  nx  FORTRAN  executable.  Functioos  described  elsewhere  in  diis  appemUx  aie  used 
b  these  blocks.  ^ 


eet  ■  fcpcePi»slMcsk.«f .  "w"); 

inilB_twakeGalcJlk(oat); 

fchM(oul); 

» 

out  *  tipeaCductSgfc.aet'',  ViO; 
write jhictite_llle(out); 
idose(oat); 


out  *  fiifieiiOhitlorq.9et*.  *w*): 

wriie_tlitllonLfile(nvt): 

fcioM(oat); 


out  ■■  fBpeii(*aburulet.tet*,  *w*); 
wite_Sbcniks_lUe(OHt); 
cloa^out); 


out  *  fbfKuOvkakifC.Kt”,  "w^; 

writejwkakiic_file(out); 

ldoM(out); 


The  last  four  blocks  of  code  write  files  used  by  the  PLL  FORTRAN  executable  by 
using  QiriMf  fiinction  calls. 


out  -  fiB|ieiiCdsiiip.flg*,  >0; 

4iriatl(out,*Kd  \ii^,citiiiiatejieiiyMg_fl«g,<isinpii^ 
fclOM(OHt); 

I 


out  fepeii(”optioiis.set*,  *w*)> 
igoptiniize.ipai)  li|Mi^out,*0^n”); 

iRoptimftnejiiainetef)  li)rialf(out,"l\a”); 

ii(aiaxiiiiize_dauit)  4>riatfl[oal,”2\n”); 

ifCanloadJbif)  4>rinlf(oiit,*3\B"): 

ifl[iintcii_EAR_llag)  4iriiitf[oot,*4\n”); 

ifl[eval_iiooaxi_sialor)  4)riiitl(oat,*S\n'0; 

ii[no_nialiiiie_o|Xioiis)  f|iriall(aat,*99b'0; 
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I 


foiMAt); 

^riMtoal.'  )(02d:%a2d\a*.  U.kiw.  Lti.aia); 

%02d/S02d^2(l/B\ddB_iM»,d<iajd^y.d.dajw 

fdQM(OHlX 


CS.13  Tkc  rcMi.bladc.fllc  fkactioik 

The  readJbhdejBle  fimction  reads  standard  PLL  blade  data  files.  It  receives  a 
poifder  to  a  FILE  structure  and  the  component  mimber  for  which  the  file  is  being  read. 
The  fimction  is  coriqratible  with  files  written  by  and  for  the  origiiud  FORTRAN  version  of 
PLL  and  files  written  by  the  MTT-PLL  Editor  program. 


I 


I 


void  read  blade_fik(FILE  *blade,  int  oomponent) 

{ 

*  dedue  variables  that  are  defined  in  the  pU.c  file  and  thtf  will  be  used  in  this  fimction  * 

««•««•*••«•••*««««««««**•**««««««««*«««*««*«*«*•••****«**•*********•«/ 


extern  int  MRnNImax.coop],  MBINIniax_coiiq>]; 

extern  float  XRFINIniax_radHniax_ooinp}.  XCHD{max_iad)[niax_ooiiq)], 

XTI]iCIaiax_rad](aiax_ooaip|,  XCD(niax_fiid]Imax_ooinp], 
XGIaaR_nd](max_ooinp],  BAR(niax_oofnp], 
BANGINIniax_aiid(>nax_oafnp],  BCiroiN(inax_ang](niax_comp], 
BniKlN(aiax_ang](niax_ooaip],  BCDINIaiaxjangl(max_oomp), 
BClR]N(aMx_ang)(niax_coaip]; 

/**••«•*«•••«•«•«*•••«««•••«•««««**«,«*«*«*«««*«***•*********«***•*** 

*  Variable  dedaratiaiis  * 


int 


I 


I 


M. 

nextchar-  l; 
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//loop  counter 

irmtga  variaUe  for  reading 
// data  diameter  by  duuacter 


while  (aexichirl-lSJUbwxi^art-lO) 


Mxichtf-tBMhIadB); 

aexlcher-1; 

//nap  Hooad  Uae 

«4iik  (■exlchart~13A^.aextdMrt»10) 

«M>v«rlMr  m  fBlc(bllde)i 

■exichar*!; 

//nap  thiid  liae 

while  (iiexlcharl-13AAaextidiar!*10) 
oexidiar  *  getcCbiade); 

Bextchar^l; 

//read  in  the  number  of  ndii 

6canf(blade,*Sd  *,AMRPIN(ooaipooent]); 

/^ciap  fifth  line 

while  (nexlchar!»13AAnextcliar!>10) 
nextcfaar  ~  getc(blade); 
nexidiar*!; 

//loop  through  the  components  and  rend  in  the  radii 

fbr(M<-0'^<MRPIN[component];M-H') 

fiRanfl[Uade,*%f  *.ftXRPIN|M][aMnponem|); 

//scrap  seventh  line 

ndiile  (nextcliar!-13AAnextchart-10) 
nextchar  >  getc(blade); 
nextdiar«l; 

//read  in  the  Uade  diords 

fi)r^4N>'^<MRPIN[component];M-H-) 

ficanf(blade,*3tf  ”,ftXCHDIM](conq)onem]); 

//scrq*  ninth  line 

while  (nextchart»I3AAnextchar!»10) 
nextehar  -  getc(Uade); 
nextdiar*!; 

//read  in  dm  Made  thicknesses 


ft 


ft 


ft 


ft  • 


ft’ 


ft 


ft 
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ft 


ammaaiiii 


•  € 


fM(MH>J4<lAPINlGoavaM];^ 


■  JkXTHKIMlIaMVOMt]); 

//mp  ekvoMk  liae 

wM»  (M9ildnrt-13AAamldMrl-10) 
aexichw-felc(UadeX 
asxtdMr-l; 

//read  in  tlie  Made  vaoout  drag  codUciBU 

ftcMiKblade.*Sf  *^aHM](cQavoMatD; 

//aciap  thiiteenth  line 

adule  (nexteliaft-I3dtAnextcliart~iO) 
nextehaf  ■  gcto(blade); 
nexldiar-1; 

//read  in  the  Made  dfculatioo 

for^fm‘>f<MRPINIoompoaent]>f-H-) 

fiKaiiflMade."%f  ".AXG(M]{coiiiponefit]); 

//if  the  next  character  is  not  the  ECX^.  then  read  in  the  ring  data 

if(getG(blade)l-E(»P)  { 

//scrap  fifteenth  line 

while  (nextchar!»13AAnextchar!»IO) 
nextdiar  getc(Made); 
nextchar^l; 

//read  in  the  angular  extent  of  the  ring 

ficanf(blade,”%f  ”,&BAR(ooniponent]); 

//scnq>  seventeenth  line 

while  (nextcharl^lBAAnextcharHlO) 
nextehar  ■■  getc(Made); 
nextdiar*!; 

/Acad  in  the  unaober  of  an^ 

ficanftMade.*Sd  ",AMBIN[coaponent]); 


//inVMMlanihliM 

«4ik  (anlckart»13AAiiexlchart*10) 

■cdAar  » teic(bl«de); 

//md  in  Ae  aafki 

lbf(M^>i<MBm(ooavoaeat|>l+^) 

ficaiifl[blade.*Sf  *.ftBANGIN(MHGOiii|ioaeiit)); 

//aciap  twody'fifst  line 

while  (iiextcliarl«13Aftiiexldiar!>10) 
nejddiar  «  getc(blade); 

Bextchar  «1; 

//lead  in  the  ring  chonb 

for(M*OU^<MBIN(ooinponent];M-H-) 

£Kanfl[blade.*W  -.ABCHDIN[M1(componeiit]); 

//scrap  twenty*third  line 

while  (nextchar!*13AAiiextchar!»10) 
nextchar  >  getc(blade); 
nextdiar*!; 

//read  in  the  ring  thidmesses 

for(M"0'>4<MBINIcoiiqKMient);M-«-+) 

fiRani(blade."%f  '.ftBTHKIN(M|[compoiient]); 

//scrap  twenty-fifth  line 

while  (nextcharl«13ftAnextcliarl=10) 
nextchar  >  gelc(blade); 
nextchar-1; 

//read  in  the  ring  viscous  drag  coefBdents 

fi>r(M>0'>d<^dBIN(coniponent]'^-H-) 

&canf(blade."%f  *,ABCDIN(M]Ccoinpoiient]); 

//scrap  twenty-aev«Mh  line 

while  (nextcharl^nftftnextcharNlO) 
nextduu’  >  getc(biade); 
nextchar  «1; 


i 


i 


i  • 


i 


i 


» 
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//■ad  ia  te  flag  diailaiioM 


fia(MH)J^f<MBlNIooiivoaeat|;^ 

ftrMi<(hladB.*%f  ’.ABCIRINIMKcoaipoaeat]); 

> 


C^14  The  Kad_walic_filc  Aiactioa. 

The  read_wake_file  function  reads  standard  PLL  wake  data  files.  It  recdves  a 
pointer  to  a  FILE  structure  and  the  component  number  for  which  the  file  is  being  read. 
The  function  is  compatible  with  files  written  by  and  for  the  original  FORTRAN  vertion  of 
PLL  and  files  writt«i  by  the  MTT-PLL  Editor  program. 


void  read  wake  file(FILE  *wake,  int  component) 

( 

f**m****m*****************************************0****************** 

*  declare  variables  tlua  are  defined  in  the  pll.c  file  and  that  will  be  used  in  this  function 

«««•*«*««««*««««««*««««*««««««««««««««««««««««««««**«««•«•««****««***/ 

extern  int  NRWIN(max_conip],  NHARMA[niax_comp],  NHARMR[nuuc_oonip). 

NHARMT(max_conip]; 

extern  float  XRWIN[max_wake_rad](max_ooa|>|, 

XVA(niax_v^_rad](niax_wake_har][2]{max_conip], 

XVR(niax_wake_rad][niax_wake_har][21[niax_c(Hiv]. 

XVT(niax_wake_radi[max_wake_harj[2]Imax_compj; 


*  Variable  dedaratioas  * 

**«**«****•**«««***«««•««*•«***•«*«***««««««««««**«*******«**«**«****/ 


int  M,i> 

ngytrhar-  1; 


diaracier 


//kwp  counters 
/fint^er  variable  fiv  reading 
//ddadiaracterby 


/^crap  first  line 

adiile  (aextdttrl*13ftAiiextdiarl»10) 
nextdiar  getcfwake); 
nextdiar^l; 

//scrap  second  line 
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'i 

I 

i 

i 

i 

I 


i 


I" 

i. 


1^ 

i 


I 


while  (MXtdHrHlBAAaexlcherl-lO) 

■exicher  -  telc(wike); 

/^cnp  thifd  line 

while  (iiextAerl"l3JtAeartdMgt"IO) 
aexldMr-felc(welBe); 
nextchir -I; 

//reed  in  the  aunber  of  radii 

&Gaiif(wake."Sd  ".ANRWINIooiiipoaeiitD; 

//scrap  fifth  line 

while  (aextdiarl-13AAiiextcliarl-lO) 
nextdiar  *  ge(c(wake); 
nextchar -1; 

//lewl  in  the  NUMBER  OF  HARM(R4IC  CCSFFICIENTS  (axial,  radial,  tangential) 

ficanf(wake,*Sd  ”.ANHARMA(coniponent]); 
ftcaeftwake.'^  ".ANHARMRIcompooent]); 
finuifl[wake,"Sd  ".ANHARMTtcomponentj); 

//scrap  seventh  line 

while  (nextdiarl^lSAAnextcharl-lO) 
nextdiar  *  getc(walre); 
nextdiar  ■!; 

//rend  in  the  NONDIMENSION  AL  RADE  FOR  INPUTS 
fbr(M>0;M<NRWINIooiiqxMient];M-t-»') 

ficanf(wake,*%f  ",AXRWINIM](coiiiponent]); 

/^cnpaline 

while  (nextcharl^nAAnextoharNIO) 
nextdiar  «  gelc(wake); 
nextdiar  "I; 

//read  in  the  AXIAL  CXISINE  HARMONIC  CC«iTICIENTS 
fi>f(JH);J<NHARMA[coiiiponent]'J++)( 

fi>i(M-Oa4<NRWINIcoiiiponent]>(>+){ 


fiKanfl[waiEe,”Sf  ”,AXVA(M][J](OHo(Hiqx)nent]); 


> 


//Klip  a  line 

wkile  (■«tH»*^**'^*"******^*"*Q) 
nexldiar  «  getc(wake); 
nextdiar*!; 

//read  in  the  AXIAL  SINE  HARMONIC  CX^FFICIENTS 
fiM(|H);J<NHARMA(ooaipoiieatl;J++){ 

for(M-0>i<NRWIN[coinponent|;M-H-){ 

fiwiif(wake.*^\AXVAIMl(JlIllIcoinpoiK^ 

} 

} 

//handle  the  radial  coefficients  if  there  are  any 
if(NHARMR(con4wnent]>0){ 

//scrap  a  tine 

while  (nextchar!=13AAnextcharl=10) 
nextchar  =  getc(wake); 
nextchar*!; 

//read  in  the  RADIAL  COSINE  HARMONIC  COEFFICIENTS 
for(J=0;J<NHARMRlconiponentl;J++){ 

for(M=0;M<NRWINleomponentl->!-H-){ 

£scanf(wake."*/if  ",&XVR[M)lJ]|0]Iconiponcnt]); 

} 

> 

//scrap  a  line 

while  (nextcharl»13ft&nextchar!-10) 
nextdiar  »  getc(wake); 
nextchar  *1; 

//read  in  the  RADIAL  SINE  HARMONIC  COEFHCIENTS 
fi)r(J^;J<NHARMR(coniponent];J-*-^){ 

forCM'‘0;M<NRWINIconiponentJ->l++){ 

FKanf(wake,'^/«f*.dOCVRlM](J]Il]lcoinponentl); 
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i 


//kMKBettetaateiitMloodBcienii  if  there  lie 
if(NHAlU^coinpoiieiitl>0){ 


/^ciipaliiie 

nWk  (iiextdiai1~13AAiiextehMl»I0) 

BCxldMr  -  getc(walBe); 
nextdiar-l; 

//read  in  the  TANGENTIAL  COSINE  HARMONIC  CC^FFICIENTS 
fiM(>K)‘J<NHARMTIocMnponent];J-H-){ 

for(M»0;M<NRWIN(ooniponent];M-H-){ 

fiscanfCwake,*^  ”.&XVT(MKJ](0][component]); 

> 

} 

//scrqialine 

ndiiJe  (aextcliarl»13Aftnextchar!»10) 
nextchar  =  getc(wake); 
nextchar^I; 

//read  in  the  TANGENTIAL  SINE  HARMONIC  COEFHCIENTS 
for(J><;J<NHARMT(coniponent];J-H-){ 

for(M«0;M<NRWIN(ooniponent]'A(-<-^){ 

•¥» 

fi»uifl[walEe,*%f  ”,£XVTfM](J]|  l](aHnponent]); 


C.5.1S  The  read_input_filc  function. 

The  read_input_file  function  reads  standard  PLL  input  data  files.  It  receives  a 
pointer  to  a  FILE  structure.  The  function  is  compatible  with  files  written  by  and  for  the 
original  FORTRAN  vernon  of  PLL  and  files  written  by  the  MTT-PLL  Editor  program. 


» 


i 


i 


» 


» 


i 
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void  raid  uput  lUe(FILE  *biade) 

{ 

/**•**•«««••***«•*******«••«*•«*«•*«•*••«•*•«•«««**«*••**««**««**«•*« 
^dedaievaridblndiatMC  defined  in  the  pU-c  file  and  thit  will  be  used  iatbisfiuictk»  * 

**««*««•*««•«•«*««*«««*•«***«««««•«««*«««•««•««****«*••«*•**«**••*«««/ 

extern  diar  RUN_ID(211,  image.hub,  imagejhict.  ringedjpropdl^niax_c(m^]. 
BLDIh^niax_ooiap]|21].  lVKIN[inax_oomp][21]; 

extern  int  iae_cnrr_biade,  NBLADE(niax_coinp],  U^V; 

extern  float  DCHD,  DCD,  DTHK.  DDIAM,  XDUCT.  VS.  RHO,  DSHAFT, 

XDLOC(niax_ooaip].  XDIAM(niax_comp],  XWDlAM(niax_conip]; 

*  Variable  declarations  * 


int  M, 

nextchar^  1; 

//scrap  first  line 


//loop  counter 

//integer  varid>le  for  reading 
//  data  character  by  character 


while  (nextcharl»13AAnextchar!=10) 
nextchar  «  getc(blade); 
nextdiar^l; 


//scrap  second  line 

while  (nextchar!»13&Anextchar!=10) 
nextchar  »=  getc(blade); 
nextchar  =1; 


//read  in  the  ship  qieed 

&canf)[blade,*%r.&VS); 

//scn^)  the  rest  of  the  line 

while  (nextcharl>13&&nextdiar!=10) 
nextchar  -  getc(blade); 
nextchar  »!; 

//read  in  the  fluid  density 

ficanf(blade.”%f'.ftRHO); 

//scn^  the  rest  of  line 

while  (nextcharl=13&&nextcharl=10) 
nextchar  »  getc(blade); 
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/Awd  is  dM  iteA  onttriise  dcfilli 

lhMl(Uade.*KrUkDSHAFr); 

//acnp  the  i«t  of  line 

while  (iiexidiari*13AAaextchart-10) 
a  fclc(blsde)i 

■extdar-1; 

//leed  in  the  Bueriier  of  coinpooeiiis 

ftcuif(bla(le.*%(r.ALDEV); 

//scrap  the  rest  of  line 

while  (nextdiarl-13AAnextcharl-10) 
nextchnr  >  gelc(blnde); 
nexidiar*32; 

/^nd  out  if  an  image  hub  is  to  be  used 

while  (nextchar»32||nextchai=9||nextchap=10||nextchar=13) 
nextchar  -  getc(blade); 

if(nextchaF»^intX'YO||nexlchar=Kuit)(y)) 

image_hub  » *¥*; 
else 

iniage_liid>  *  'N'; 

nextchar  =1; 

//scrap  the  rest  of  line 

adiile  (nextcharl>13AAnextcliar!-10) 
nextchar  -  getc(blade); 
nextchar  >32; 

/^nd  out  if  an  image  duct  is  to  be  used,  this  while  statement  rejects  spaces,  tabs,  carriage  returns,  and  line 
// feeds  so  that  extra  lines  in  an  irqwt  file  wcm't  crash  the  program 

while  (nextdiaF««32||nextchar=9||nextchar=10||nextchar=13) 
nextchar  =  getc(blade); 

ifl[nexlchar^intX'YO||nextchaF=<uit)(y)) 

image_duct»'Y'; 

dse 

imagejduct  74*; 
nextdiar’^l; 


i 


» 


» 


» 


i 


i 


» 


442 


t 


//KOptelMtOriiaB 


wide  (Maildwri-13*Aaexlckwl-10) 
aexldMr-fBloCyadB); 

■estckw-Sl; 

/ArMd  Ae  dKt  dita  tfOeic  it  QM 

//read  the  dtctdMMd 

teiii||blade,*^.ftDCHD); 

//Kiap  the  letfef  line 

while  “tAAiwnitcliefl^lO) 

nextchar  -  selc(blade); 
nextchar-l; 

//read  the  duct  drag  coeflicient 

fiaiif(blade.’%r.ADCD); 

Hxof  the  rest  of  line 

while  (nextchar!~13AAnextchar!=10) 
nextchar  »  getc(blade); 
nextdiar-1; 

//read  the  duct  thickness 

foanf(blade,*3ir.ftiynfiC); 

//scrap  the  rest  of  line 

while  (nextcharl-13A&nexlcharl=10) 
nextdiar  •  getc(blade); 
nextchar  >1; 

//read  the  duct  diameter 

fouif(biade,'r«r.ftDDIAM); 

//scrap  the  rest  of  line 

while  (nextcharH13dtAnexldiarl>‘10) 
nextdiar  «  getc(biade); 
nextchar*!; 

//read  the  duct  axial  location 

Aanfl[biade,"Sr,ftXI>UCT); 
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//KnptfceiMtoflias 


wkOe  (■ntckart-lBAAaextciMurl-lO) 
MKtckv-fElc(Uade); 
aexlchir*32; 

> 

//lunde  bodi  pfopelleis.  if  dwfc  are  two 

il(iinase_<liict (diarXTS))  { 

//find  out  if  the  propdler  is  riaged 

while  (iiextdiai«-32||iiexlchar«9||nextchar»10||iiextcliar«13) 
nextdiar  «  gelc(biade); 

if(iiexlchar— 89||iiextchar»  1 2 1) 

riiiged_prapeller[M]  *  (charX89); 
else 

ringed j>ropeUer(M]  =  (char)(78); 

nextchar  >=1; 

//scrap  the  rest  of  line 

while  (nextcharH13AAnextchar!=’10) 
nexidiar  ~  getc(blade); 
nextchar  «1; 


/Aead  the  axial  location  if  there  is  more  than  1  prt^Uer 
iKLDEV>l){ 

ficanf(blade,”%r.&XDLOC[M]); 

//scrq>  the  rest  of  line 

while  (nextcharl»13AAnextchar!»10) 
nextdiar  -  getc(blade); 
nextdtar-1; 


XDLCX:{M]-0.0; 
//read  the  nundier  of  blades 


finuif(blade.'^^ftNBlJU>E{M]); 


//iMiptiKiMtefliaB 


«1itte  (M3ilciMrl«13AAae)ildMrt-10) 
amciMr-fBlc<HidBX 
■mchir-l; 

//wd  tke  cofBMK  Mtmrtrr 

ftCHrflUidB.'^.JkXDIAMCMD; 

/Aoip  dw  fot  ariiae 

while  (sedchirl-lSAAaextdMri-lO) 
■extdar  -  telc(blade); 
M3ilchir-1; 

//read  in  the  Made  file  name 

ficaiiltblade,*Se".ABLDIN(M«21]); 

Z/scnp  the  rest  of  line 

while  (nextcliarl^l3AAnextdiart»10) 
nexidiar  -  getc(blade); 
nextchar«l; 

//read  the  wake  diameter 

ficanf(blade.*%f'.AXWDIAM(Ml); 

//scrap  the  rest  of  line 

while  (nextcharl-lSAftnextcharl^lO) 
nextdiar  -  gelc(blade); 
nextchar«l; 

//read  in  the  wake  file  name 

ficanf(blade.*%s".AWKIN(M*21]); 


C.S.16  The  read_projcct_fOc  function. 


The  read_pfoject_ffle  fimctioa  reads  nX  project  files  are  that  wrteten  in  reqx»ue 
the  FfielSeve  Project  aelectioa  fitMn  the  main  menu.  The  fimction  receives  a  pdnter  to  a 
FILE  structure. 


void  lead jRject  fIMFILE  •bteds) 

{ 

/•M******************************! 


*  dedare  variables^  are  defined  in  the  pU.c  file  sad  that  will  be  used  in  this  fiiactioii  * 


extern  char 

RUN_ID(211.  INPUTFILE(20|; 

exintB  iat 

Lrav,  optimire  rpm,  optimire  diameter,  maximize  thnist,no  runtime  options, 
eflective_wake_flag.  tuniid_operatioo_flag.  duct_fixm_flag. 
diict_ring_voftex_fiMoes_flag.  ciic_opt_wake_alignment_flag. 
estimate  duct  circulation  flag,  fitTmatr  dainping_flag.  NPANEL, 
coraractkm.ratio.flag.  wdK_i^gnmeat_flag. 
drculatioo  optimization  flag,  chord  optimization  flag, 
duct_mean_line_flag.  eiiq>irical_vcd_flag,  propeller_type_flag. 
propdler_material; 

extern  float 

horsqxrwer.  RFM(niax_ooinp].  tlinist_coefiBcient, 
estiiittted_duct_circulatioii.  torque_ntio,  damping, 
ptopeller_duct_thrust_ratio.  prc|Kller_rin£_tlirast_ratio. 
thrust  estimate,  CLMAX,  TCHDMAX,  HUBCHD[max  coinp],TTIP.  CIXX)N. 
RHVOR,  PLl,  PL2.  CXINRAT,  GAPFAC, 
malerial_oonstant[user_defined_nuterial+l)I2],  rake{2]; 

*  Variable  dedaratiaas  * 

int  M,  i.  //loop  counters 

nertchar*  1;  -frtnteger  variable  reading 

// data  character  by 

character 

//scrap  first  line 

while  (nextdiarl»13AAiiextcliar1-10) 
nextdiar  -  getc(biade); 
nextchar-1; 

//scrap  second  line 

ndiile  (nextchari*‘13AAnextcliarN10) 
nextchar  >  gelc(biade); 
nextdiar*!; 

//read  in  the  iqmt  filenaine 


I 


» 


I 


» 


I 


I 


I 
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te^(MidB.-%ni*JNFUinLE); 


wfefie  (anlciHrt-lSAAaexIciMrl-lO) 

■I  iirfcar  ~ 

•sMcte-l; 

/MtailteltUNID 

lBf(H)-j<20U++)  RUN_n)(il-ie*o(btoik); 

RUN.IDf  201-NULL; 

INcof  Ae  itit  of  Uae 

whik  (Bexi>Aart-13RRiiexidi«r!-10) 
nexiditf  -  fcicCbbMle); 
acxtdutf-l; 

//■cad  A  tile  nunber  of  aMnpoae^ 

fkaiimilade.'^'.ALDEV); 

//aciap  the  lek  of  line 

while  (iiextchaH-13AAnexldiari-10) 
nextchar  -  telc(blade); 
aexichar-32; 

/Manl  iai  the  ipm  for  both  pnipellea.  if  there  are  two 
foKhWMJ)EV;M++)  { 

IteanlCWade.'^.RRPMIMl); 

//fcnptherestofliiie 

while  (aexldari-13foftiiexlcfaar!-10RAaextchar)-«(XO 
nextchar  «  seio(blade); 
nextchar -1; 

> 

//thia  if  JtateaMfit  reoogniaea  hare  prqiect  filea 

jqfocanRblade.'^.fkifNioi^^ 

//aciap  the  real  of  line 

while  (nextdiart-13RRnextdiari-10) 
nextdiar  -  petcCMade); 
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//md  tke  oplMn  diMMlar  llig 

//knptleraKorUae 

wUk  (awtefcMi^mAiiPrtdiigl^lO) 
■edchir-ceioOifaide): 
■exlchar-1; 

//nad  tlw  Mudauae  tkfwt  flag 

&CttilCblade,''%d*,ABaxinii2e_tlifurt); 

//temp  the  fcA  of  line 

while  (iiextdier!»l3AA.nextchert-10) 
nextehar  ■  getc(bUde); 
nextditf-l; 

//read  the  Horaepowcf  for  maximizing  thrmt 

ficaiifl9*hKle,''%r',Ahorsepower); 

Htcnp  the  rest  of  line 

while  (iiextdiarl»13AAnextcharl=10) 
nextehar  «  getc(biade); 
nextehar  »1; 

//read  the  Thnut  eoefficieitt  for  maximizing  thrust 

ficanf(biade.''^,&thrust_coe&ieient); 

//serap  the  rest  of  line 

while  (nextduu'!’-13ftAnexteharl=10) 
nextehar  «  gete(blade); 
nexidiar**!; 

//read  the  No  runtime  optkws  flag 

ficanf(blade,"9U*,fbw_iuntiaM_options); 

//scrap  the  rest  of  line 

while  (iiextdiarl«13A&nextdar1’-10) 
nextehar  «  geic(blade); 
nexidiar-I; 

//read  the  Effbetive  wake  flag 

ficanfl[Uade,"^",Aeflective_wake_flag); 
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» 


» 
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# 


■HHdiniHitinaawiiinaniniMii^^ 


whik  (■ettdnrt-tsaJUmdMri-lO) 

■Bdckv  •  VBtodWade); 

•edckw-l; 

/M  tiM ‘nMMi  opflmkM  flag 

teM«Uade.'^.Alaaad_ope^ 

/kcnptheiHtofiiae 

whik  (aB(lAart-13Aftaextcliar!-10) 
nextchar  ■  getc(bkde); 
aextdnr*!; 

//read  tlie  Duct  tecet  flag 

flaati 

//scrk>  the  rest  of  line 

whik  (aextduri^lSdUtnextciiarl^lO) 
nextdiar  «  gelc(blade); 
nextchar  «1; 

//read  the  Duct  ring  vortex  forces  flag 

ficanflblade,*%d".&duct_ring_vortex_forces_flag); 

//scrap  the  rest  of  line 

whik  (iiextchar!-13ftAnextchar!«10) 
nextdiar  »  getc(blade); 
nexidiar**!; 

//read  the  Ciic  opt  wdie  alignment  flag 

ficanfl[biade.'^*.Acifc_opt_wake_aligiunait_flag); 

/^crap  the  rest  of  line 

whik  (*!f*****^*‘*3AAiie3rtchsr!»101 
aexlidiar  «  getcfblade); 
nextdiar~l; 

//read  the  Ekiniale  <hict  drculation  flag 

ftcanf(bkde.'^*.Aestiinate_duct_qrculkion_flag); 

//scrap  the  rest  of  line 

uhik  (nextd)arl»13AAnextciiaii-10) 
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/^cnp  tte  mt  of  liae 


— «ch«>  -  artrftilMfci): 
-I; 


il(UadB,''Sd”4te«iaMle_daa|Mas_llog}; 


while  (■ertcheri-lSAAaortcheri-lO) 
aeiih:her«felc(blade); 
oexichir-l: 

Mead  the  Eitiiaited  <hict  caculatioa 

lkaiil(blade.'‘%f.Aertniated_diict_ciicul^on); 

Mcnp  the  rest  of  line 

while  (iiexldiarl*13AAiiextchar!«10) 
nextchar  -  getc(bbde); 
iiextchar»l; 

//read  the  Torque  ratio 

6caiifl[blade,''Sr,&torque_ratio); 

//scrap  the  rest  of  line 

while  (oextcharNlBAAiiextcliarHlO) 
nextchar  »  getc(blade); 
iiextdiar>l; 

//read  the  Damping 

ficanf(blade.”%f',ftdainping); 

//scrap  the  rest  of  line 

niiile  (nextchart-nftftnextcharl^^lO) 
nextdiar  »  getc(biade); 
nextdor*!; 

//read  the  Propeller  duct  thrust  ratio 

ftcanfl[blade,*%r,ftpropeller_duct_tlirust_rttio); 

/^ctap  die  rest  of  liiK 

while  (nexlcharH13AAnexldiarl«10) 
nextchar  >  getc(Uade); 
nextchar  *1; 

/Aead  the  Propdkr  ring  thrust  ratio 


t 
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//mpdwiMtaflkM 


while  (aeiiietel«134UfcM3(lchirt-10) 

■exichar  *  fBic(btadBX 

//feed  the  Thnm  cetiiMte 

//saap  the  teat  of  liae 

while  (Bertdiari»13AABe>rtcharl»IO) 
aext^er  -  getc(bUde); 
nextchar^l; 

//read  the  nuximiim  lift  ooefBdent 

ficaiif(blade,*Sf'.AC3A4AX); 

//soap  the  rest  of  liae 

while  (Dexldiarl»13AAiiextcharl»10) 
nextchar  getc(blade); 
aextchar-l; 

//read  the  maximum  thiduiea  to  chord  ratio 

ficaaftblade.'^.ftTCHDMAX); 

//scrap  the  rest  of  line 

while  (nextchar!"13AAiiextcharl=10) 
nextchar  -  getc(biade); 
nextchar  «1; 

//read  the  mimmum  diotd/diaineter  ratio  at  the  root  for  each  component 
fbr(Kf-0>f<LDEV;M-H-){ 

&canablade.'^.AHUBCHD(M)); 

//scrap  the  rest  of  line 

while  (nextchari-13AAiiextdiar!~10ftAnextchart^OF) 
nextchar  getc(blade); 

nextchar -1; 

} 


//read  the  tip  duckness  to  dntd  r^ 


teMfl[yade;*%r.ATnP); 


//KnpdMfaitflfliM 

whUe  (sextAirt-lBAJkMxlckwHlO) 
■Bmchw  ~  foicdilade); 

/AwMitheftoofpwrit 

tenfliyaik.-Sd'.ANPANEL); 

//aaip  the  vat  of  line 

while  (ncxtcherl-lSAAnentdiarl^lO) 
nextcher  »  getc(blade); 
nextchar  <■!; 

//reed  the  drag  coefficient  multiplier 

eKanf(blade.*%r.ACDCON); 

//scrap  the  rest  line 

while  (nextchar!>*13AAnextchari»10) 
nextchar  >  getc(blade); 
nextchar -1; 

//read  the  hub  vortex  radius  to  hub  radius  ratio 

£Kanl(blade."%r.ARHVOR); 

//scrap  the  test  (rf  line 

while  (nextcharl-13A&nextcbarl=10) 
nextchar  getc(blade); 
nextchar  >>1; 

//read  the  &st  Lagrange  multiplier 

£scaiil(blade."%r.&FLl); 

//scrap  the  rest  of  line 

while  (nextchar1»13AAnextcharl=10) 
nexidiar  >■  geic(blade); 
nextdiar*!; 

//read  the  second  Lagrange  multiplier 

ficanf(blade.*%r.APL2); 


//scrap  the  rest  <rf  line 


whik  (iiextcliarl»13&&nextcharl»10) 
nextchar  «  ge(c(blade); 
nextchv-l; 

//read  the  cootnctioa  ratio  flag 

6canf(blade,”^*.Acoiitractioa_ratio_flag); 

//scrap  the  rest  of  line 

whik  (nextcharl«13AAnextcharl-10) 
nextchar  »  getc(blade); 
nextchar  «1; 


//read  the  conrat 


&canfi:blade.‘r.r*.ACONRAT); 

//scrap  the  rest  of  line 

whik  (nexlchar!«13&Anextcharl‘=10) 
nextchar  =  getc(blade); 

nextchar 

//read  the  wake_alignment_flag 

Escanf(blade,*%d”.Awake_aiignment_flag); 

//scrap  the  rest  of  line 

while  (nextcharN13AAnextcharl=I0) 
nextchar  =  g^c(blade); 
nextchar  =1; 

//read  the  circulation_optimization_fIag 

fscanf(blade,"%d",&circulation_optimization_flag); 

//scrap  the  rest  of  line 

while  (nextcliar!sl3&&nextcharl=10) 
nextchar  -  getc(blade); 
nextchar  =1; 

//read  the  chord_(^)timization_flag 

ficanfi[blade,”%d'',&chord_q)timization_flag); 

//scrap  the  rest  (rfline 

while  (nextcharl=13A&nextcharN10) 
nextchar  getc(blade); 
nextchar  >=1; 
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//read  deduct 


i_liiie_flaf 


ftca^(blade.'^'',Aduct_aieaii_liae_flag); 

//nap  the  rest  of  liae 

udiik  (aexldtar!«13AAaexicharl*10) 
nextchar  -  pelcCblade); 
aextchar-l; 

/^tad  the  einpiricsl_vcd_flsg 

&canfl[blade,'^*.Aen4Hrical_vod_fliig); 

//scrap  the  rest  of  liae 

while  (aextdiarl^nAAoextchsrixlO) 
aexichar  -  getcCUade); 
nextchar^l; 

//read  the  duct  tip  gap  Cretor 

£scaiif(blade,*%r,AGAPFAQ; 

//scrap  the  rest  of  line 

while  (nextchar!>>13&&nextchar!=10) 
nextchar  =  getc(blade); 
nextchar^l; 

//read  the  propeller_typc_flag 

£scanf(blade,''%d”,&propeller_type_flag); 

//scrap  the  rest  line 

while  (nextchar!=13&&nextchar!=10) 
nextchar  =  getc(blade); 
nextchar  =1; 


//read  the  propeller_niaterial 

&canf(blade,”%d",ftprc^ller_material); 

//scrq)  the  rest  rtf  line 

while  (nextcharl=13&&nextchar!=10) 
nextchar  »  getc(blade); 
nextchar  ■‘I; 

//read  the  user  defined  propeller  material  constants 

£scanl(blade."%r,ftmaterial_constant(user_defined_material][0]); 


//scraq>  the  test  of  Uik 


lAilc  (■extdari-13AAaextckar)*10) 
nextdutf-fPlcCbtade); 

lSKMii(bl«de,'‘%P,AiMteri«l_oon<Un>[user_deBaed_iiateriall[  11); 

//scnp  die  Kit  of  line 

while  (iiextcfaarl-13AAiiextdiu’!»10) 
nextdiar  *  geic(biade); 
nextcfaar*!; 

//read  the  rake  at  hub  and  tip  for  eb«  calculations 

ficaiif(blade.'^.Aiake(OI); 

//scnp  the  rest  of  line 

while  (aextchar!~13&ftnextcharl*10) 
nextchar  «  getc(blade); 
nextchar  *1; 

ficaiif(blade."y.r.Arake(l|); 


> 


> 


C.5.17  The  read_plot_fUe  function. 

The  read_plot_file  function  reads  plot  files  that  are  written  by  the  FORTRAN 
executable.  It  receives  a  pointer  to  a  FILE  structure  as  an  argument. 


void  read_plot  fiIe(FILE  *pIot) 

{ 

*  dedare  variables  that  are  drOnM  in  the  pU.c  file  and  that  will  be  used  in  this  fiinction  * 

****««*«««•«««««««*««**««*«*«««****«««****«*****«*•*******«*********«/ 


extern  int  nuniber_nKlii[niax_conip]; 

extern  float  RADIUSInux_oonip](niax_rad],CHORDINPirr[niax_conip]Iinax_rad], 

PrrCHANGLEUNDlSTUroED[inax_coinp](inax_rad], 
CHCXtDCALC[aiax_coa^>]ltaax_radJ, 
PIT01ANGLEINDUCED(niax_conip](niax_rad], 

UAINEFFECnVE(niax_conipHmax_rad],  UTIN[max_compJIniax_radI, 
UAINDUCED[niax_C(Hnp][inax_rad].  lJriNDUCEDIinax_coinp][niax_iadJ, 

THICKNESS[max_convl[niax_iadl,  CIRCllLAT10NINPUTIniax_conip](niax_radl, 


455 


i 


« 


i 


i 


« 


i 


IWAGlBMx_o(M^)](iiiax_fadl.  (3RClAAT10NCALC{aiax_ooiiip]IiBax_ndl. 

lXX:;AL(X{iBax_ooiBp](mu_nMl].  LOCALCniiiax_ooiiip)(iittx_iad]. 
LOCALCQ(iBax_ooaq>](iiHu_radl,  CAVITATIONNUMBER{niax_ooiiip][inax_nd], 

UAINNOMINAL(iiiax_ooaip)(iBax_nKl]; 


/*«*««««««*«•«**«*•«««««*««*«•«««••«*««••«««•*««•««««««**•«««•««*«*«« 

*  Variable  dedantnat  * 

«*«*«««««•*«•*«•««•«**«**«*««««•*««*•«*«***««*««*«««*««••««**••*«««*«/ 

int  component,  //component#,  1  or  2 

i;  //loop  counter 

//read  in  the  component  number 

&canf(plot,”%d  '',&coniponent); 

//decrement  the  component  number  so  that  data  for  component  number  1 
//  will  be  stored  in  the  [0]  variables  (C  programming  convention) 

component-; 

//read  in  the  number  of  radii 

£scanf(plot,”^  ”,Anuniber_iadii(coniponent]); 

//loop  through  the  radii 

for(i»0;i<nuniber_radii(component];i-H-) 

//read  in  the  data  for  each  parameter  at  the  current  radius 

6canf(plot,"%f%f%f%f«/«f*/«f%f%f%r.&RADlUS|component]|i]. 
&QKXtDINPUT(component][i],  &THIGCNESS[component][i], 
&DRAG[coniponent](i],  &CIRCULATIONINPUT[component](i], 
&UAINNOMINAL[component]  [i],  AUAINOTECnVE[component]  [i], 
&UTIN[component](i],  ^rrCHANGLEUNDISTURBED[component]|i]); 

//loop  again  through  the  radii  and  read  the  rest  of  the  parameters 

for(i'=0;i<nuiiiber_radii[component];i++) 

ficanf(plot,"yifVif%f«/if%f%fy«fV«f«/tf*/ir.ARADlUS[component]{i], 
&CH(KtDCALC(conipooent](i],  &PITCHANGLEINDUCED[component][i], 
&CIRCULATIONCALC(oortqxHient](i],  &UAINDUCFD[coniponent]  [i], 
ftUTINDUCED(component](i],  &LOCALCL[coinponent]|i], 
ftLOCALCT(oomponent](i],  AlX)CALCQ[component][i], 
ACAVrrATIONNUMB^icomponent)[i|); 

> 


» 


» 


i 


i 


» 


» 
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i 


CS.lt  The  rcMlj||biMrt_flle  fiwctiM. 

The  fimctkm  reads  data  frwn  the  glauert.coe  file  written  hy  the 

FCHITRAN  exeadaUe  to  be  used  should  the  user  decide  to  unload  the  laib  and/or  tip  of  a 
hubtess  propdler  without  a  ring  or  a  zero  gap  duct.  The  fiinction  recdves  a  pointer  to  a 

V 

FlUB  structure  as  an  argument. 


t 


void  lead .glaueit  file(FILE  *blade) 

{ 

*  dedaie  variables  that  are  defined  in  the  pU.c  file  and  that  will  be  used  in  this  fiinction  * 

*««««*«*«««**•«•««*««««««««««««««««***««•«**•«««***•*******««**«*«***/ 

extern  int  NGC4J>EV; 

extern  float  GC(niax_ooinp][niax .jglau_coefl; 

^*^m**************************************************************** 

*  Variable  declarations  * 

int  i  J;  //counters  for  the  for  loops 

//loop  through  the  components 

fbr(i=^);i<LDEV;i++)  { 

//read  in  the  nuihber  d  coefficients  for  each  component 
ficanfi:blade,”%d”.ANGC:); 

//loop  through  and  read  in  the  coefficients 
forO-0-j<NGC\i++) 
ficanf(blade.*Sf  ”.ftGC[i)U]); 

} 

> 

C.5.19  The  read_unload_dat_file  function. 

The  read_unload_dat_file  function  reads  data  fi'otn  the  unload.dat  file  written  by 
the  FORTRAN  executable  should  the  user  dedded  to  unload  the  hub  and/or  tip  of  a 
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prop^or  tint  has  a  ring  or  •  aero  g^)  <kict  or  an  unage  hub.  The  function  recdvea  a 
pointer  to  a  FILE  structure  as  an  argument 


€ 


e 


« 


< 


< 


i 


i 


void  nod  oakiod  dit  lile^ILE  *blade) 

{ 

/•«•••••••••*•**«*•*•**•«*«*•*•*•*«•**••«•«•*••****«•«•**«***•«***««« 

*deducvaiiabkt  dm  are  defined  in  the  pILcflk  and  tint  will  be  used  in  this  fiinction  * 
*••«••*•**••**«*«*«««*««*««•««••«•*••«*««**•*•****««•****••«•**«***«*/ 

extern  iat  LIXV; 

extern  float  liui>jcitc{niax_ooa9].  tip_cif^niax_ooinp|,  liub_iadiitt(niax_c(«ip]. 

tip_radii^niax_ooinp].  RZ{max_coinp|; 

/*««««««*•«•«««««*««««««««««*««««««««•«««««*««««*«*«••««*««•*«•««*••« 

*  Variable  dedaiations  * 

int  i;  //loop  counter 

//loop  through  the  components 

foi(i*0;i<LDEV;i++)  { 

//read  in  for  mdi  compcMient: 
y/ciiculation  nearest  the  bub 

ficanf(blade,''%r,Ahub_citc(i)); 

//radius  nearest  the  hid> 

!knnfl[blade,”%r,&bid>_radius(i]); 

//hub  radius 


&canf(biade.*%r.ARZ(i]); 
//circulation  nearest  the  tip 

ficanf(blade,”%r,Atip_citc(i]); 
//radius  nearest  the  tip 

£scanf(biade,"%r,Atip_radius[i|); 


} 


} 


» 


» 


i 


i 


i 


« 


» 
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The  fimctioa  deletes  inmecessary  daU  files  and  initializes  ^obal  vaiiables 

in  order  to  prepare  PLL  to  <^wn  a  new  prefect. 

voidiiiilialiat(wiU) 


•**•««**•**««•••*««••«««•««******•**•*•*•*•******* 


*dBdare  variables  tkat  are  defiaedia  the  plLc  Ilk  and  that  will  be  iiMdia  this  Itaactioa  * 


extern  iat  pktjwpe.  ph>t_coiiipoiieat.ilag.  drewjplot_flag.  ualoadjlag.  o|itimi2e_ipm. 

optiiaizejliaaieier,  naxuuzejthrasi,  Bialch_EAR_flag.  iiae_ciin_blade, 
eval_aoeaxi_atalor.  ao_roaliaaejO|itiQas,  oulputjBag,  coaiponent_flag.  Scndl_Pos. 
estimalB_diia_cifciilatiM_llag.  estimatejdaiiqiN^llag.  cifc_opt_wake_aligiiineiit_flag, 
NPAN^  coatiactioa_iatio_flag.  widce_aligiiiiient_flag.  ciiculiaion_optiaiization_flag. 
diofd_flptinii2atioa_flaB.  duri_inean_iiae_flag.  eiiq)irical_vod_flag. 
propdlefjype_fla*. 

propdkf.material.  prqiect_flag.  eflective_wake_flag.  tiinnel_opentioo_llag. 
diict_fomjlag.  duct_riag_vo>tex_forces_flag.  ScroU.Pos,  opt.comp; 

extern  float  horsepower,  tIinist_ooefficient.  RPMImax_ comp].  CONRAT,  GAPFAC. 

niaterial_ooastant(iiaer_defined_niaterial-»-l](2],  rake(2].  thnist_estimate,  torque_ratio, 
damping,  estlinated_duct_ciiciilatioa,  pfopeller_diict_thiiist_ratk>. 
propeller  ring^thn^  ratio,  CLMAX.  TCHDMAX.  TTIP,  OXX>N, 
HUBCHD(max_comp].  RHV(».  n.1,  PLl, 

GC_UNLOAD_FRAC(tnax_coinp](max _glau_coef]; 

extern  char  ringedjpropeller(niax_oomp].  RUN_ID{21],  INPinHLE{20],  PROJECTFILE|20]; 


*  Variabk  declarations 


int  M; 

tonpotaty  files 

unlinkCpiotl  .out”); 

unlink(*plot2.oiit”); 

nalinlc(*carrl.bl(n; 

utilink(*cutT2.bid”); 

nnlinkCdetaill.out'O; 

nniinkCdetaiI2.our); 

unlinkC'suminaty.oiit*); 

nnIinkCstress.oiit*); 

onlink(*absniles.out”); 

unlinkCductgeo"); 

unlinkC'firds.out'^; 

uniink(”iKmaxi.cnip”); 


//loop  counter 


4S9 


Mdiakf'aoMxi.cif*); 


iHyaliCciinpbd.pbd^. 

ualiakCcan^l.bHi*); 

wiii^ciinpbiQ.bai*); 

vaUakCcwi^vd”); 


//dctole  pi»€itfalit  pbd  output  flki 


uidiiiiCpbdouLGbd*); 

unliakCp^''^<3ut.kHb^; 

ualiokCplMtoutciBv*): 

uBliiik(*pbdouLtot*); 

uaUukCpbdouLgsp^; 

uulinkCpbdouLtol*); 

unlinkC’pbdoitt.ay'^; 

unlinkCpbdoutktq*); 

unlinkCpbdouLobg”); 

unlinkCpbdoutlm*); 

unliakCpbdouttAig”); 

unlinkCpbdoutrdc*); 

ualinkCpbdoutsgr^; 

uiiluik(*pbdoutvq>”); 

unlinkCpbdoutlidi*); 

unliiik(*cuiTpbd.en*); 

unlinkC’cuf'nibd.dw'O; 

//initialize  global  variables 

foi(M«0>f<max _glau_coef;M++){ 

C3C_UNLOAD_FRAC(0J[Ml-0.0; 

CX:_UNLOAD_FRACII1IM]=0.0; 

} 


ringed jMopellerfO]*^; 
tinged_propeller(  I 

piotjnge-O; 


plot_ooniponent_flag>0; 


df8w_plot_ftagm; 


unioodjUag^; 

optiniize_fpnpO; 

optinu2e_dianietef=^; 


1; 


honetorntr-OJK 

thiwt.codBciat-O.O: 

oalpat.flarO; 

oonpoaeaiJIac-O; 

ScnO.Poc-O; 

tficpy(RUN_ID,**); 

ftiq>y(iro*UTFILE."0; 

diqiytPROJECTFIlJE.*”); 

proiectJhg-0; 

RPMIO)-100.0; 

RPM(1]-100.0; 

dlKtivc_walcejOag  *  0; 

tliniit_estiiiiate  *■  0.69; 

tiiiiiidjopeiitioa_flag  *  0; 

<iact_fbtces_fl«g  *  1; 

dBct_fui^voitex_forocs_flag=  1; 

tocque^ratio  - 1.0; 

eiliiiiMe.duct jdicalationjlag  *  0; 

cftiaialedjdHCt.ciiGuliiioa  *  O.OS; 

cilinale jbnpiiisJlag  ~  0; 

damping*  0.0; 


prapdkr_dnct_tlinist_ratio  *  1.0; 
propdler_ring_tlinift_nlio  *  1.0; 
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Gilc.QpLiMte.alij 

CLMAX-0.6; 


tjlliw»0; 


i 


TCIlDMAX-0.20; 

TTIP  ■  0.004; 

NPANEL-10; 

CDOON- 0.000; 

RHVOR-0.5; 

PLl  -  -1.0; 

PL2-0.0; 

coiUr»ction_raOo_fl«g  •  1; 

CCM4RAT-1.0; 

wake_aligiiiiieiit_flag  *•  1; 

cuculatkMi_o|)tiniizatioii_lIag  « 1; 

diOfd_optiiiiizatioii_flag  » 1; 

<faict_iiiean_liiie_flag  » 1; 

empiricai_vcd_flag  °  i; 

GAFFAC  - 1.0; 

propeUer_type_fiag  *■  1; 

propelkr_iiiaterial  -  manganese.broiize; 

inalerial_ooiistant(itserjdefiiied_iiialeriaI][0|^0.0; 

iiialerial_ooas(aiit[user_defiiied_iiialerial][l]^.30; 

nke[0]H).0; 

nke(l]-0.0; 

Scfoll_PW-0; 


» 


» 


» 


» 


» 


» 


» 
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CSJl  Tkc  dclcte_flcs  Aiactita. 

The  delete_files  fiinctioii  deletes  ten^>orary  date  files  according  to  the  int^er  flag 

passed  as  an  argument. 

void  ddelB  fiksCiat  fik  flag) 

{ 

ifl[flk_flat— pll_flkt){ 

//delete  tesaiMMaiy  fiki 

iiiiliak(”piotl.oiit*); 

iiidialc(*piat2.oiit*); 

ludiiikCdetaill.oiiO: 

iiaUiikrdetail2.out*); 

ualiak(*w>iiaiafy.out*); 

iinluik(*stiest.out*); 

uiiliok(*absniles.out*); 

ualinkCductgeo”); 

unlinkCfiuds.out'O; 

ttnliiik(*noiiaxi.cinp”); 

iuiliiik(*iioiiaxi.cir^; 

uBlinkCnoBaxi.har*); 

ualiakC'iioiiaxi.for*); 

uiiIiiik(*ciinpbd.|)lMr); 

unlinkCcunpbdl.bsa"); 

uiiliiik(*cunpbd2.b6n*); 

} 

if(fik_flag~>i)bd_fites)( 

//delete  pie-existing  pbd  output  files 

unlinkCpbdouLcbd"); 

unlinkCpbdouthUb'O; 

unlinkC'pbdouLcmv''); 

unlinkCpbdouLcmT); 

unlinkCpbdouttot*); 

unliidc(”pbdoutgsp”); 

unlinkCpbdouLsol”); 

unlinkCpbdoutibg"); 

unlinkCpbdoutktq”); 

unlinkCpbdoutbsn"); 

unlinkCpbdoutobg'O; 

unlinkCpbdouLidc”); 

uiiluik(*pbdoitt.sgr^; 

unlinknibdouLvGp'O; 

unlinkciMouthdi”); 

unlink(*cunpbd.err^; 

unlinkC'cunpbd.ebs'O;  } 


> 


APPENDIX  C.6 


The  PLL  and  PBD  FORTRAN  programs. 


CA  Tht  PLL  ami  PBD  FORTRAN  prograou. 

The  MTT-PLL  propeller  design  program  uses  lifting  line  theory  in  representing 
pr(^)dlers  as  a  set  of  straight,  radially  oriented  lifting  lines  corre^nding  to  the  (M-opeller 
blmles.  The  geometry  of  the  blades  is  represented  in  the  form  of  a  radial  drculation 
distribution.  The  program  was  devdoped  at  the  MIT  Marine  Hydrodyiuunics  Laboratory 
with  support  from  the  MIT  Sea  Grant  College  Program  and  the  David  Taylor  Research 
Center.  For  this  reason  the  code  will  not  be  reproduced  in  whole  or  in  part  in  this 
document,  either  in  its  original  form  or  as  altered  to  be  called  by  the  PLL  Windows’^ 
application. 

The  PBD- 14.2  propeller  design  program  is  the  product  of  evolution  from  a  series 
of  earlier  codes  developed  at  the  MIT  Marine  Hydrodynamics  Laboratory.  The  program 
was  developed  with  support  provided  by  the  Office  of  Naval  Research  Graduate 
Fellowship  Program,  the  Office  of  Naval  Research,  and  the  David  Taylor  Model  Basin. 

As  in  the  case  of  PLL,  this  code  will  not  be  reproduced  in  whole  or  in  part  in  this 
docuntent,  either  in  its  origiiud  form  or  as  altered  to  be  called  by  the  PLL  Windows'^ 
q)pUcation. 

For  the  purpose  of  the  illustration  of  a  FORTRAN  code  altered  for  operation  in 
conjunction  with  a  Windows’’^  application,  a  portion  of  the  VLMLE  code  discussed  in 
Chapter  2  and  Appendix  B  is  shown  below.  The  FORTRAN  code  shown  is  used  to  allow 
the  user  to  interact  with  the  program  and  provide  keyboard  input  to  set  the  number  of 
panels  to  be  used  in  modelling  a  foil.  The  first  line  of  code  writes  a  prompt  to  the 
monitor. 

The  READ  statem«it  that  follows  causes  the  execution  of  the  program  to  pause  while  the 
user  sdects  and  types  an  integer  value  on  the  keyboard,  and  presses  "enter".  The  program 
then  reads  the  value  selected  by  the  user  and  stores  it  in  the  variable  MC.  A  test  is 
performed  in  the  third  statement.  If  the  value  suggested  by  the  user  falls  outside  of  the 


acceptable  nuige,  execution  of  the  program  is  redirected  to  statement  90  and  the  process 
isrq)eated. 


90  WRITE(*.'r  Eater  wmiber  of  panels  (Max:''.I4.”)  ..  *.$)*)  MSD 

READ(*.*)MC 

IF(MC.LT.S.OiUkiC.GT.MSD)  GO  TO  90 


The  FORTRAN  code  shown  below  replaces  the  code  described  above  in  order  to 
adapt  the  original  VLMLE  code  for  use  by  a  Windows'^  executable.  The  first  executable 
line  opms  the  INPUT.DAT  file,  a  file  written  by  the  Windows'^  executable,  as  logical 
unit  2  to  provide  the  input  that  is  usually  provided  via  terminal  interaction.  The  READ 
statement  reads  the  first  value  fiom  the  INPUT.DAT  file  as  the  number  of  panels.  There 
is  no  need  to  test  MC  at  this  point  to  ensure  that  it  is  within  the  acceptable  range,  since 
this  action  was  performed  by  the  Windows'^  application.  At  some  point  later  in  this 
program  the  INPUT.DAT  file  will  be  closed  to  complete  the  input  process. 


C_Opea  the  input  data  file  as  unit  2 . . . . . . 

OPEN(24TIi=WlJT.DAT,STATUS*aJNKNOWN’.FORM=TORMATrED’) 

C 

C — Compute  vortex  and  control  point  positions  and  weight  functions — 

C 

C 

READ(2.*)MC 

C 


Output  functions  are  implemented  similarly.  Data  that  is  normally  written  to  the 
screen,  or  to  output  text  files,  or  to  plot  files,  is  writtmi  to  files  in  a  format  recognized  by 
the  Windows'll  l^)plication.  As  a  preferable  altonative,  the  Windows'^  application 
functions  may  be  written  to  use  output  and  plot  files  written  by  the  unaltered  FORTRAN 
code.  This  alternative  minimizes  the  work  necessary  to  implement  later  revisions  of  the 


original  FORTRAN  code  for  use  by  the  Windows'’^  application.  Both  techniques  were 
employed  in  PLL. 


I 


I 


» 


I 


I 


I 


I 


» 


I 


I 
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APPENDIX  C.7 


PLL  program  listings. 


C.7  PLL  proprui  Uftiags. 

Lisdngs  for  the  MTT-PLL  Windows^  application,  the  MTT-PLL  Editor  prognun, 
and  the  MTT-PLL  Hdp  program  are  included  in  this  Appendix. 

C.7.1  Mrr-PLL  prognun  Ustiagi. 

The  PLL  A^indows''^  application  includes  37  files.  Listings  for  these  files  are 
included  with  this  document  as  Appendix  C.7. 1  on  a  3. S  inch,  IBM  PC  formatted,  double 
sided,  high  density  floppy  disk.  The  files  are  saved  in  an  ASCII  text  format  which  can  be 
read  using  a  DOS  text  editor  or  any  word  processor  capable  of  reading  DOS  text  files. 
The  complete  files  of  this  and  the  other  programs  in  this  thesis  are  not  included  in  the 
written  text  of  the  thesis  in  the  interest  of  limiting  the  size  of  the  document.  These  pages 
are  included  with  the  listings  in  a  file  named  README.TXT. 

The  files  included  on  the  disk  are  described  below. 

PLL.C  -contains  the  WinMain,  FrameWndProc,  MDI  Child  Window 

Procedure,  WMCommand_Handler,  scroll  bar,  and  dialog  box 
fiinctions. 

WRTEPBD.C  -contains  the  write_pbdadmin_file  function. 

PAINTHUB.C  -contains  the  paint_hub  function. 

PAINTRDC.C  -contains  the  paint_rdc  function. 

PAINTVCP.C  -contains  the  paint_vcp  function. 

PAINTTST.C  -contains  the  paint _graphs  and  rotation_projection  functions. 

DELETE.C  -contains  the  delete^files  function. 

INITIAL.C  -contains  the  initialize  function. 

READGLAU.C  -contains  the  read jglauert_file  and  the  read_unload_dat_file 

functions. 

-contains  the  write_misc_files  and  the  write_pbd_files  functions. 


WRITEMISC.C 


i 

1 

WR1EDEF.C 

-contains  the  write_de&uh_file,  write_wakecalc_file. 

« 

write_ductforc_file,  write_thsttorq_file,  write_absrules_file,  and  the 

1 

write_wkaldrc_file  fiincti(His. 

PAINTWAK.C 

-contains  the  paintwake  fiinction. 

PRINTPLT.C 

-contains  the  printplot  and  the  drawprint  functions. 

1 

PAINTPLT.C 

-contains  the  paintplot  and  the  draw  functions. 

PAINTBLD.C 

-contains  the  paintbld  function. 

< 

READWAK.C 

-contains  the  read_wake_file  function. 

1 

READPLOT.C 

-contains  the  read_plot_file  function. 

READBLD.C 

-contains  the  read_blade_file  function. 

i 

READPRJ.C 

-contains  the  read_project_file  function. 

1 

WRTEPRJ.C 

-contains  the  write_project_file  function. 

WRTEINP.C 

-contains  the  write_input_file  function. 

4 

READINPC 

-contains  the  read_input_file  fiinction. 

1 

PRINTOUT.C 

-contains  the  printout  function. 

PAINTOUT.C 

-contains  the  paintout  function. 

4 

WRITEOUT.C 

-contains  the  write_output_file  function. 

1 

PAINTGSP.C 

-contiuns  the  piunt_gsp  function. 

PAINTCMV.C 

-contains  the  paint jcmv  function. 

4 

PLL.DEF 

-the  module  definition  file. 

1 

PLL.RC 

-contiuns  definitions  of  the  resources  used  in  the  PLL  program. 

HEADER.H 

-contains  the  #define  and  #include  statements  for  the  PLL  program. 

4 

PLL.H 

-contains  the  definitions  of  the  Windows'^  identifiers. 

1 

README.TXT 

-contains  a  copy  of  these  pages. 

The  following  files  are  not  readable  text  files. 

4 

PLL.ICO 

-describes  the  icon  used  to  represent  the  program  in  the 

1 

Windows’™  Program  Manager. 

4 
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PLLBLD.ICO 


-describes  the  icem  used  to  represent  the  Blade  Viewer  window  in 
the  MDI  Client  window. 

PIXOUT.ICO  -describes  the  icon  used  to  represent  the  Output  Viewer  window  in 
the  MDI  Client  window. 

PLLPLOT.ICO  -describes  the  icon  used  to  refmsent  the  Plot  ^ewer  window  in 
the  MDI  Client  window. 

PLLWAKE.ICO  -describes  the  icon  used  to  rq)resent  the  Wake  Viewer  window  in 
the  MDI  Client  window. 

PLL.PRJ  -the  project  file  read  by  the  compiler. 

PLL.PIF  -a  program  information  file  used  by  the  Windows™  environment 

to  control  how  the  PLL  FORTRAN  executable  is  run. 

PBD.PIF  -a  program  information  file  used  by  the  V^dows™  environment 

to  control  how  the  PBD  FORTRAN  executable  is  run. 

Also  included  with  this  appendix  are  are  several  blade,  wake,  stator,  and  overall 
input  files  for  use  with  PLL. 

C.7.2  MIT-PLL  Editor  program  listinp. 

The  MIT-PLL  Editor  Windows™  application  includes  25  files.  Listings  for  these 
files  are  included  with  this  document  as  Appendix  C.7.2  on  a  3.5  inch,  IBM  PC  formatted, 
double  rided,  high  density  floppy  disk.  The  files  are  saved  in  an  ASCII  text  format  which 
can  be  read  uring  a  DOS  text  editor  or  any  word  processor  capable  of  reading  DOS  text 
files.  The  complete  files  of  this  and  the  other  programs  in  this  thesis  are  not  included  in 
the  written  text  of  the  thesis  in  the  interest  of  limiting  the  size  of  the  document.  These 
pages  are  included  with  the  listings  in  a  file  named  README.TXT. 

The  files  included  on  the  disk  are  listed  below. 

PLLEDIT.C 


ADDANGLE.C 


ADDRADHC 

•  COPY.C 
E«LCLK.C 
DISCARD.C 

•  HEADER.H 
PAINTBLD.C 
PAINTFIL.C 

•  PAINTSTA.C 
PAINTWAK.C 
PLLEDIT.DEF 

«  PLLEDIT.H 

PLLEDIT.RC 
PRINTFIL.C 
«  READBLD.C 

READINP.C 
READSTAT.C 
«  READW/JC.C 

WRTEBLD.C 
WRTEINP.C 

«  WRTESTAT.C 

WRTEWAK.C 
README.TXT 

•  The  fi>lk>vvuig  files  are  not  readable  text  files. 
PLLEDIT.PRJ 

PLLPRJ.ICO 

f 


C.7J  MIT-FLL  Hdp  prognua  listiaft. 

The  MTT-PLL  Help  Windows'™  application  includes  10  files.  Listings  for  these 
files  are  included  with  this  document  as  Appendix  C.7.3  on  a  3.S  inch,  IBM  PC  formatted, 
double  sided,  high  den^  floppy  disk.  The  files  are  saved  in  an  ASCII  text  format  which 
can  be  read  using  a  DOS  text  editor  or  ai^  word  processor  capable  of  reading  DOS  text 
files.  The  complete  files  of  this  and  the  other  programs  in  this  thesis  are  not  induded  in 
the  written  text  of  the  thesis  in  the  interest  of  limiting  the  size  of  the  document.  This  page 
is  included  with  the  listings  in  a  file  named  README.TXT. 

The  files  included  on  the  disk  are  listed  below. 

PLLHELP.C 

HEADER.H 

PAINTFIL.C 

PLLHELP.DEF 

PLLHELP.H 

PLLHELP.RC 

PRINTFIL.C 

README.TXT 

The  following  files  are  not  readable  text  files. 

PLLHELP.PRJ 

PLLHELP.ICO 

This  ^pendbc  also  includes  the  text  files  displayed  by  the  MIT>PLL  Help  program. 
The  files  used  in  presenting  the  contents  of  the  PLL  and  PBD  User's  Manuals  are  not 
inclutkd,  for  the  same  reason  that  the  PLL  and  PBD  FORTRAN  source  code  is  not 
included. 


